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Im Laufe der Entwicklung des Produktes können 
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oder entfallen. Entsprechendes gilt für andere Angaben 
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Siemens Aktiengesellschaft 


Vorwort 


Dieses Handbuch leitet den Leser an, wie er COBOL-Programme 


— im BS2000 erstellt, 

— mit dem COB1-Compiler übersetzt, 

— mit weiteren Betriebssystemkomponenten verwaltet und bindet 
— und Test- und Produktionsläufe durchführt. 


Die Kapitel 1 bis 5 beschreiben diesen Weg. 


Das Kapitel 6 gibt Programmierhinweise zur 


— Testunterstützung durch COBOL-Sprachelemente, 

— Erstellung von wiederverwendbaren Moduln (reentrant Code), 

— Unterprogrammtechnik, 

— Arbeit mit Systemdateien durch COBOL-Anweisungen, 

— Dateibearbeitung, 

— Anwendung von Sortier- und Mischfunktionen und 

— Unterstützung bei der Ausgabe von Fixpunkten sowie der Wiederanlaufbehandlung. 


Der Anhang enthält 


— die Meldungen des COB1-Systems, 
— die Beschreibung des Aufbaus des COB1-Systems und der erzeugten Objektmodule und 
— die Beschreibung der Anwendung der COBOL-DML-Sprachelemente. 


Der Leser benötigt Kenntnisse der Programmiersprache COBOL. Der Sprachumfang ist im 
Manual „COB1 Beschreibung“ [1] dargestellt. 


Auf Druckschriften zu Betriebskomponenten, die für die Entwicklung und den Ablauf eines 
COBOL-Programms zur Anwendung kommen, wird im Text durch Kurztitel bzw. Nummern in 
eckigen Klammern hingewiesen. Die vollständigen Titel sind im Literaturverzeichnis aufge- 
führt. 


Programm- und Ablaufbeispiele sind grau unterlegt, darin enthaltene Dialogeingaben rot 
hervorgehoben. 


Die Neuerungen gegenüber dem Vorgängermanual sind im Änderungsprotokoll 1 zusam- 
mengefaßt. 


Mit Wünschen und Vorschlägen und Ihrer Kritik können Sie zur Verbesserung unserer Ma- 
nuale beitragen. Bitte benutzen Sie dazu die rosa Formblätter am Ende des Manuals. 
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Änderungsprotokoll 1 


Änderung des Manuals, 

Stand Januar 1984 (Softwareprodukt COB1 V2.1) 
durch die Neuausgabe 

vom November 1984 (Version 2.2A) 


Die Quellcodeeingabe aus LMS-Programmbibliotheken und die Bindemodulsicherung in 
LMS-Programmbibliotheken wird unterstützt. 


Das Lesen von Quellcode aus LMS-Programmbibliotheken kann hierarchisch aus 5 Biblio- 
theken erfolgen. Dafür stehen 4 zusätzliche LINK-Namen (COBLIB1 bis COBLIB4) zur Verfü- 


gung. 
Der neue Zusatz WITH NO LOCK zur READ- und START-Anweisung für indizierte und rela- 


tive Dateien ermöglicht es, nach OPEN LO und FILE-Parameter SHARUPD =yes einen Satz 
zu lesen, ohne den Block, in dem er steht, für andere Anwender zu sperren. 


COB1 V2.2A bedient neue COBRUN-Operanden. 


— LINK Bei Angabe dieses Operanden wird der Linkname für im Programm verwen- 
dete Dateien aus der ASSIGN-Klausel und nicht aus dem Dateinamen der 
SELECT-Klausel entnommen. 

— MODULE Der erzeugte Bindemodul wird in die angegebene LMS-Programmbibliothek 
eingetragen. 

— NODDLIST In der Quellcodeliste wird das SUBSCHEMA für den Datenbank-Anschluß 
unterdrückt. 


Die COBRUN-Operanden ANSICOB, COPY und COBNAM werden nicht mehr unterstützt. 
Die folgende Tabelle gibt die Seiten an, die Änderungen enthalten. 


Seite Stichwort geän- |ent- 


dert fallen 
1-19 Beschreibung der LMS-Bibliothekstypen 
1-19 Zuweisen von LMS-Programmbibliotheken 
2-11 COPY-Anweisung mit Zusatz SUPPRESS 
2-14 COBRUN MODULE=bibliotheksname 

2-17 Ausgabe von Bindemoduln 

2-18 COBRUN MODULE=bibliotheksname 

2-19 Fußnote zu COBRUN MODULE 

2-19 COBRUN MODULE 

2-19 COBRUN COBNAM 


x 


2-25 Steueranweisungsliste 
2-27 Bibliotheksliste 


2-30 Bibliotheksliste 
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Seite Stichwort geän- | ent- 


dert fallen 


6-37 Tabelle um Angabe WITH NO LOCK erweitert 
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Änderungsprotokoll 2 


Änderung des Manuals, 

Stand November 1984 (Softwareprodukt COB1 V2.2A) 
durch den Nachtrag vom 

September 1985 (COB1 V2.2B) 


Te e 
dert fällt 
e TE 
1-18 
T T A TS 
D See EE A 
"EE EC 
EE 
EES 
EES 
o ee 
eege EEN 
` eet 
ar E EE 
Ce EES 
frame TT 
"EE 
EES 
EE 
Be a 
ea It 
D ne || 215 
a Sr O 
| 
So ro 
6-26 OPEN-Modus-Wirkung SC 


6-26ff. | Neuordnung der Seiten 


Be 


5 


COB1 (BS2000) V2.2B Benutzerhandbuch U254-J1-255-2 


dert fällt 
on |soumniitensieramisanm | | = 
on [mem | |» 
= fen TL 
n p 
[men S | 
IE RN ER BEE 
` Atiomsinsanıhenzursiermiämen | = | 
ox Jemen ll 
ZU. EE DE 
IRB. EE 
ZI. 3 EEE BER ER 
STB. BRETT IR EB 
TR ee Pe 
zn nd ET Et» 


COB1 (BS2000) V2.2B Benutzerhandbuch U254-J1-255-2 


Änderungsprotokoll 


Änderungsprotokoll 3 


Änderung des Vorgänger-Manuals, 

Stand September 1985 (COB1, V.2.2B), 
durch den Nachtrag vom 

August 1986 (COB1 V2.3A) 


COB1 V2.3A enthält gegenüber der Vorgänger-Version die folgenden wesentlichen 
Änderungen: 


® Anschluß an die Dialogtesthilfe AID 

® Neue Fehlerklasse „Hinweise“ 

© INITIALIZE-Anweisung 

® Funktionserweiterungen für Jobvariablen 
® Bedienung mehrerer SYSLST-Dateien 


Die folgende Tabelle gibt nur Seiten an, die fachliche Änderungen enthalten. 


Beispiel 1: COBOL-Quellprogramm 


geän- | ent- 
dert | fallen 


Beispiel 2: Eingabe eines COBOL-Programmes im 
Kartenformat 


17_1-10 Eingabe und Änderung von COBOL-Programmen 
mit EDOR 


EE eh Ei 
Re 
2-31f Fußnoten zum OBJECT-Listing DE 


Beendigungsverhalten des COB1 (Tabelle mit den 
Return-Codes für Jobvariablen) 


2-64f COBRUN SYMTEST 


SYMTEST-Operand in der PROGRAM-Anweisung 


Änderungsprotokoll 


SYSLSTnn-Unterstützung 


Q. Q 


eän-| ent- 
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Beendigungsverhalten eines COBOL-Programmes 
(Tabelle mit den internen Return-Codes und den 
zugeordneten „90/91-er“ Meldungen) 


Operanden des EXEC-Kommandos 
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Metasprache Eingabemöglichkeiten 


© 1 Bereitstellung des Quellprogramms 
1.1 Einführung 
1.1.1 Metasprache für die BS2000-Anwendung 


In diesem Benutzerhandbuch werden für die BS2000-Anwendung folgende metasprachliche 
Konventionen verwendet: 


PARAM Großbuchstaben bezeichnen Schlüsselwörter, die in dieser Form eingege- 
ben werden müssen. 
name Kleinbuchstaben bezeichnen Variablen, die bei der Eingabe durch aktuelle 
Werte ersetzt werden müssen. 
YES Standardwerte sind unterstrichen. Sie werden vom Betriebssystem immer 
© NO dann eingesetzt, wenn der Benutzer keine Angaben macht. 
YES Aus mehreren Möglichkeiten in einer geschweiften Klammer muß der Be- 
NO nutzer eine Angabe auswählen. Ist es ein Standardwert, so darf dieser 
weggelassen werden (kann aber auch angegeben werden). 
{YES | NO! Ein senkrechter Strich trennt verschiedene Angaben. Der Benutzer muß 
eine Angabe auswählen. 
[] Eckige Klammern schließen Wahlangaben ein, die der Benutzer auch weg- 
lassen darf. 
() Runde Klammern müssen mit angegeben werden. 
e Dieses Zeichen deutet an, daß mindestens ein Zwischenraum syntaktisch 


notwendig ist. 


Drei Punkte bedeuten, daß die vor dem Komma stehende Einheit mehr- 
mals hintereinander wiederholt werden kann. 


Sonderzeichen sind ohne Veränderung zu übernehmen. 


Hinweis: Für COBOL-Formatangaben gelten die üblichen COBOL-Konventionen 
© (vgl. Manual „COB1 Beschreibung“ [1]). 


1.1.2 Eingabemöglichkeiten für COBOL-Programme 


Das vorliegende Kapitel vermittelt eine Übersicht über die Eingabemöglichkeiten eines 
COBOL-Quellprogramms in das Betriebssystem BS2000. 


Nach seiner Codierung muß man ein COBOL-Programm für die Übersetzung bereitstellen. 
Bevor es jedoch der COB1-Übersetzer verarbeiten kann, muß sich der Benutzer entschei- 
den, auf welchem Weg er das Quellprogramm eingeben will: 


— über Floppy Disk oder 
— über Lochkarten oder 
— im Dialogbetrieb an einer Datenstation. 


Zusätzlich hat der Benutzer festzulegen, ob die Eingabe direkt in den COB1-Übersetzer er- 
folgen oder ob das Quellprogramm auf Magnetplatte zwischengespeichert, d.h. indirekt 
eingegeben werden soll (siehe Bild 1-1). 
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Direkte und indirekte Eingabe eines COBOL-Quellprogramms 


In den Fällen ON wird das Quellprogramm zunächst auf Magnetplatte zwischengespei- 
chert (siehe Kapitel 1.2 und 1.3), d.h. indirekt in den COB1-Übersetzer eingegeben. Bei ® 
OH © erfolgt die Eingabe direkt in den COB1-Übersetzer (siehe Kapitel 2. 2). 


Bei indirekter Eingabe des Quellprogramms steht das Programm für weitere Übersetzungs- 
läufe auch nach der ersten Übersetzung bereit. Änderungen kann man mit Hilfe von Dienst- 
programmen (z.B. mit einem Dateiaufbereiter) im Dialog mühelos durchführen. 


Thema der nachfolgenden Abschnitte ist die Bereitstellung des Quellprogramms auf Ma- 
gnetplatten. Daten auf Magnetplatten sind im BS2000 stets in sogenannten Dateien [4] or- 
ganisiert und unter den Namen dieser Dateien abrufbar. Man unterscheidet je nach ihrer in- 
neren Struktur zwei Dateitypen: 


1. In einer einfachen Datei kann genau ein vollständiges Quellprogramm als Eingabe für den 
COB1-Übersetzer bereitstehen. Diesen Dateityp bezeichnet man auch als Quellpro- 
gramm-Datei. 


2. In einer PLAM-Bibliothek oder einer LMS-Quellprogrammbibliothek können dagegen 
mehrere Quellprogramme oder auch Quellprogrammteile zur Eingabe in COB1 gespei- 
chert werden. 


Beispiel 1: Codiertes COBOL-Quellprogramm 


Das folgende, einfache COBOL-Quellprogramm soll in den folgenden Abschnitten in einer 
Datei bzw. einer PLAM-Bibliothek oder LMS- Quellprogrammbibliothek zur Übersetzung be- 
reitgestellt werden. 


Die Bedeutung der einzelnen COBOL-Anweisungen geht aus der COB1-Beschreibung [1] 
hervor. 
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Dateien 


1.2 


1.2.1 


1.2.2 


Dateien 


Übersicht über die Bereitstellung in Dateien 


Abschnitt 1.2 zeigt, wie ein codiertes COBOL-Quellprogramm in eine Datei, die später der 
COB1-Übersetzer lesen soll, gebracht und dort geändert wird. 


Eingabe in Dateien 


Der COB1-Übersetzer kann sowohl die Zugriffsmethode SAM als auch ISAM benutzen, um 
ein Quellprogramm einzulesen. Zur Eingabe des Quellprogramms in Dateien dieser Typen 
stellt das BS2000 folgende Mittel zur Verfügung: 


— das Kommando DATA [2] für Daten, die auf Floppy Disk gespeichert sind oder auf Loch- 
karten stehen. Das Kommando ist nur im Stapelbetrieb anwendbar. 


— den Dateiaufbereiter EDT [5]; er ist dialogorientiert, äber auch im Stapelbetrieb anwend- 
bar. | 


Liegt das Quellprogramm bereits auf Magnetplatte oder Magnetband gespeichert vor und 
soll es in eine bestimmte Datei übernommen werden, so bietet das BS2000 weitere Möglich- 
keiten: 


Häufig genügt das COPY-Kommando [2] zum Kopieren von Dateien. Die Übernahme läßt 
sich aber auch mit Hilfe des Dateiaufbereiters EDT durchführen. Daneben gibt es Umsetz- 
routinen [3], die vor allem für Datenstrukturen eine Bedeutung haben, die vom Standardfall 
abweichen (z. B. Satzlängen größer als 256 Zeichen). Wegen der einfachen Struktur von 
Quelldaten wird hier auf diese Sonderfälle nicht näher eingegangen. 


Das BS2000-Kommando DATA [2] zeigt an, daß ihm Datensätze im Kartenformat folgen, 
aus denen eine SAM- oder wahlweise eine ISAM-Datei auf gemeinschaftlichen Datenträ- 
gern erzeugt werden soll. Jedem Datensatz auf Floppy Disk bzw. Lochkarte entspricht dabei 
ein Datensatz in der erzeugten Datei. | ' 


Eine DATA-Datei legt das System während des Einspulvorgangs (SPOOL IN) an. Deshalb 
kann der Benutzer das Kommando nur in einspulenden Stapelprozessen und nicht in Dialog- 
oder ENTER-Prozessen verwenden. 


Format des DATA-Kommandos 


Operation Operanden 
SAM NORMAL 
DATA dateiname |. [SaM 4 Korn y] | 


Die Angaben NORMAL bzw. MAXIMUM legen den Umfang der Speicherplatzzuweisung für 
die Datei „dateiname“ mit 3 bzw. 12 PAM-Seiten fest. 


Das erste DATA-Kommando eines Stapelauftrags muß unmittelbar dem LOGON-Kom- 
mando folgen. Die einzugebenden Daten werden durch das END-Kommando [2] abge- 
schlossen. 


Für die Eingabe von weniger umfangreichen Quellprogrammen, Quellprogrammteilen und 
für Änderungen in bereits vorhandenen Quellprogrammen ist der Dialogbetrieb besonders 
geeignet. 


Der Dateiaufbereiter EDT [5] bearbeitet SAM- und ISAM-Dateien, deren Sätze höchstens 
256 Zeichen lang sind. Die ISAM-Datensätze müssen am Satzanfang einen numerischen 
Schlüssel besitzen, der bis zu 12 Zeichen lang sein darf. Der Benutzer kann mit dem EDT im 
Dialog- oder Stapelbetrieb arbeiten. 
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Beispiel 3: Eingabe eines COBOL-Quellprogramms mit dem EDT 
(Das Protokoll wurde mit einer Schreibstation 8103 erstellt.) 
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1-6 


® Aufruf des Programms EDT. 


®© Die Anweisung @TABS... vereinbart $ als Tabulatorzeichen, das auf die Spalten 8 und 12 
ausrichten soll. Außerdem soll der EDT melden, wenn die eingegebene Zeichenfolge 
länger als 72 Zeichen ist. 


® Nachdem die ersten beiden Datensätze des Quellprogramms in den EDT-Speicherbereich 
eingegeben wurden, kann man sie mit der Anweisung @P ausgeben lassen, um die Funk- 
tion des Tabulators zu überprüfen. Die Ausgabe zeigt auch die Zeilenzahlen der Sätze, 
die sie im EDT-Speicherbereich erhalten. 


GO Diese EDT-Meldung weist darauf hin, daß die Eingabe länger als 72 Zeichen ist. 


®© Auf Zeile 11 sollen, falls in Spalte 72 der Buchstabe I steht, die nachfolgenden Zeilen 


gelöscht werden (Beispiele für weitere Korrekturen in 1.2.3). 
Alle Sätze im EDT-Speicherbereich sind ohne ihre Zeilenzahlen auszugeben. 


(D Diese @WRITE-Anweisung schreibt den Inhalt des EDT-Speicherbereichs in eine SAM- 
Datei namens QUELL.EDT. 


Ende des Programms EDT. 
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Leerseite durch den Nachtrag vom August 1986 
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1.2.3 


Änderungen in Dateien 
Aus unterschiedlichen Gründen kann man Quelldaten in einer Datei ändern wollen, zum Bei- 
spiel wegen 


— Tippfehlern; | 
— formalen Fehlern, die der Übersetzer meldet; 


— logischen Fehlern, die bei einem Testlauf des ablauffähigen Programms festgestellt wer- 
den. 


Im folgenden wird gezeigt, wie sich derartige ÄnderungenimDialog mit Hilfe von EDT durch- 
führen lassen. 


Beispiel 5: Änderungen eines fehlerhaften Programms mit EDT 


Das Protokoll wurde an einer Schreibstation 8103 erstellt und in der Datei OUELL BEISPIEL ? 
abgespeichert. 
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Die Datei QUELL.BEISPIEL.1 wird in den EDT-Speicherbereich gelesen. 


Die Sätze 1 bis 12 werden mit EDT-Satznummern aus dem EDT-Speicherbereich auf die 
Datenstation ausgegeben. 


Satz 3 wird gelöscht. 


Der Tabulator wird mit der @TABS-Anweisung gesetzt. Er wirkt bei der nachfolgenden 
Eingabe (@SET) eines neuen Satzes, der die EDT-Satznummer 9.5 erhält. 


Damit wird erreicht, daß im folgenden veränderte Datensätze auf der Datenstation pro- 
tokolliert werden. 


In Satz 2 wird das erste Komma ({,) in einen Punkt (.) geändert. Da der CHECK Modus ein- 
geschaltet wurde, protokolliert der EDT diese Änderungen automatisch. 


8 8 o oo 9009 


Zur Kontrolle werden die Sätze 1 bis 12 erneut ausgegeben, diesmal ohne de EDT-Satz- 
nummern. 


Der Inhalt des EDT-Speicherbereichs soll in die Datei QUELL.BEISPIEL.1 zurückgeschrie- 
ben werden. Daraufhin meldet der EDT, daß diese Datei bereits im Katalog eingetragen 
ist und fragt, ob ihr Inhalt überschrieben werden soll. Die Antwort Y hat dies zur Folge. 


© 


© 


Der EDT wird beendet und in den Systemmodus übergegangen. 
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© 1.4 


1.4.1 
1.4.1.1 
1.4.1.2 
1.4.1.3 
1.4.2 


LMS-Bibliotheken 


COBOL-Programme in LMS-Bibliotheken 


Das Bibliotheksprogramm LMS [21] erstellt und verwaltet Bibliotheken und bearbeitet 
Bibliothekselemente auf Magnetplatte und Magnetband. 


LMS kann auch mit COBLUR erstellte Bibliotheken lesen, ändern jedoch nicht (siehe „Um- 
stellung von . .. COBLUR auf LMS” in [21]). | 


Bibliotheksformate 


Von den Bibliotheken, die LMS bearbeiten kann (genaue Beschreibung siehe unter „Biblio- 
theksformate“ und „Elemente“ in [21]), sind die folgenden für COBOL-Programme von Be- 
deutung: 


— Programmbibliotheken zum Speichern von Quellprogrammen, Moduln, Listen, Prozedu- 
ren USW. 
Zugriffsmethode: PLAM 


— Quellprogrammbibliotheken zum Speichern von Quellprogrammen, Quellprogrammtei- 


len, Listen, Prozeduren 
Zugriffsmethode: ISAM 


— Bindemodulbibliotheken zum Speichern von Bindemoduln 
Zugriffsmethode: PAM. 


Programmbibliotheken (PLAM-Bibliotheken) 


Programmbibliotheken sind PAM-Dateien, die mit der Bibliothekszugriffsmethode PLAM be- 
arbeitet werden. Sie bieten gegenüber anderen Bibliotheksformaten u.a. folgende Vorteile: 


— Alle Bibliothekselementtypen können in einer Bibliothek abgelegt werden. 


— Es dürfen gleichnamige Elemente existieren, die sich nur durch die Typ- oder Versions- 
bezeichnung unterscheiden müssen. 


Quellprogrammbibliotheken 


Quellprogrammbibliotheken sind ISAM-Dateien (KEYPOS=5, KEYLEN=8), die nur den 
Bibliothekselementtyp S enthalten können. In ihnen können sowohl vollständige Quellpro- 
gramme als auch Quellprogrammteile (COPY-Elemente) gespeichert werden. 


Bindemodulbibliotheken 


Bindemodulbibliotheken sind PAM-Dateien. Sie nehmen die vom Sprachübersetzer erzeug- 
ten Bindemoduln als Bibliothekselement mit dem Typ R auf (siehe „Sicherstellung von Bin- 
demoduln“). 


Zuweisen von LMS-Bibliotheken 


Die Zuweisung von LMS-Bibliotheken (siehe auch „Zuweisen von Bibliotheken“ in [21]), die 
als Eingabe- und/oder Ausgabebibliothek für ein Bibliothekselement dienen sollen oder in 
denen ein Element bearbeitet werden soll, erfolgt mit der LIB-Anweisung (siehe diese in 
[21]). Diese bestimmt u. a., ob es sich um eine neu einzurichtende oder eine bereits vorhan- 
dene Bibliothek handelt und welches Bibliotheksformat sie haben soll oder hat. 


Soll die zu bearbeitende Bibliothek in LMS-Anweisungen über die Bibliothekskurzbezeich- 
nung oder den Dateikettungsnamen angesprochen werden, muß vor dem LMS-Aufruf oder 
spätestens vor der ersten LMS-Anweisung ein /FILE-Kommando gegeben werden. 
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Format des /FILE-Kommandos: 


LINK = dateikettungsname 
LINK=LIBlib 


/FILE bibliotheksname, | 


| 


bibliotheksname Name der LMS-Bibliothek 


dateikettungsname Name, mit dem die Bibliothek in LMS-Anweisungen angesprochen 
werden kann (wird in die Prozeßdateitabelle (TFT) eingetragen) 


LIBlib Dateikettungsname mit Bibliothekskurzbezeichnung 
LIB fester Bestandteil 
lib Kurzbezeichnung der Bibliothek; Ganzzahl, die immer drei- 
stellig anzugeben ist 


Soll in der LMS-Anweisung die Bibliothekskurzbezeichnung verwendet werden, ist als Datei- 
kettungsname LIBlib zu verwenden. Die Kurzbezeichnung ist in runde Klammern zu setzen ; 
führende Nullen dürfen weggelassen werden. 


Eingabe in LMS-Bibliotheken 

In LMS-Bibliotheken können Quellprogramme eingegeben werden 
— aus Dateien 

— aus einer Bibliothek 


— über die Systemdatei SYSDTA bzw. SYSIPT, d.h. von einer Datenstation oder einer tem- 
porären SPOOLIN-Datei. 


Eingabebibliotheken müssen vor dem LMS-Aufruf durch ein /FILE-Kommando zugewiesen 
werden, wenn sie über den Dateikettungsnamen oder die Kurzbezeichnung angesprochen 
werden sollen. Die Datenstation bzw. die temporäre SPOOLIN-Datei muß über das 
SYSFILE-Kommando zugewiesen werden. 


Hinweis: Soll ein COBOL-Quellprogramm mit LMS aus einer katalogisierten ISAM-Datei in 
eine PLAM-Bibliothek aufgenommen werden, so darf dabei nicht der Verarbei- 
tungsoperand PAR KEY = YES wirksamsein. Andernfalls kann COB1 dieses Quell- 
programmelement nicht bearbeiten. 


Beispiel 9a: Übernahme einer katalogisierten Datei in eine LMS-Bibliothek 


OU Die Bibliothek LMS.SOURCE wird zugewiesen und mit dem Dateikettungsnamen LIBO001 
verknüpft. 


Gi Aufruf von LMS 


Gi LMS.SOURCE mit der Kurzbezeichnung 1 (LID=001) wird als neueinzurichtende 
(STATE=NEW) Ausgabebibliothek (USAGE=OUT) erklärt. Da der Operand FORMAT 


tet. 

& Die katalogisierte Datei COB.PROG wird als Element vom Typ S unter dem Namen 
COBELEM1 in die LMS-Bibliothek aufgenommen. 

© Beendigung des Programms LMS, Schließung aller geöffneten Bibliotheken und 
Dateien. | 
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nicht angegeben ist, wird sie standardmäßig als Programmbibliothek (Typ PL) eingerich- 


LMS-Bibliotheken 


Beispiel 9b: Übernahme eines COBLUR-Elementes in eine LMS-Bibliothek 


® Die COBLUR-Bibliothek COBLUR.PR wird zugewiesen und mit dem Dateikettungsnamen 
LIBO12 verknüpft. 

® Die LMS-Bibliothek LMS.SOURCE wird zugewiesen und mit dem Dateikettungsnamen 
LIBO13 verknüpft. 

Gi Aufruf von LMS 

@ LMS.SOURCE mit der Kurzbezeichnung 13 (LID=(13)), die bereits existiert (STATE = 
OLD) als Programmbibliothek (FORMAT=PL), wird als Ausgabebibliothek erklärt 
(USAGE=OUT). 

© © COBLUR.PR mit der Kurzbezeichnung 12 (LID=(12)), die bereits existiert, wird als Einga- 

bebibliothek erklärt (USAGE=IN). 

© Das COBLUR-Element COBLUREL aus der Bibliothek COBLUR.PR(12) wird dupliziert 
und unter dem neuen Namen LMSELEA4 in LMS.SOURCE eingetragen. 
Enthält die COBLUR-Bibliothek in mehreren Bibliotheksabschnitten Elemente gleichen 
Namens, so wird nur das zuerst gefundene Element übernommen. 

(D Beendigung des Programms LMS und Schließen aller geöffneten Bibliotheken. 


Kopieren von vollständigen Bibliotheken ist mit COPS *% durchzuführen, sofern nicht meh- 
rere Elemente gleichen Namens vorhanden sind (siehe LMS Beschreibung [21], Anhang). 


Sind in einer COBLUR-Bibliothek in verschiedenen Bibliotheksabschnitten Elemente glei- 
chen Namens, die mit COPS * kopiert werden sollen, so empfiehlt sich: 


PAR OVERWRITE=NO (Standard) 


Dadurch wird nur das zuerst gefundene Element mit dem jeweiligen Namen übernom- 
men. 
PAR OVERWRITE=YES 


Dadurch wird das zuletzt gefundene Element übernommen. 


© Nachdem ein Element kopiert wurde, muß es in der COBLUR-Bibliothek gelöscht werden, 
damit das nächste Element gleichen Namens durch 


DUPS elementnamealt > elementnameneu 


umbenannt und in die LMS-Bibliothek übernommen werden kann. 


1.4.4 Änderungen in LMS-Bibliotheken 


Mit Hilfe eines Editors (EDT, EDOR) kann ein Quellprogramm in einer LMS-Bibliothek geän- 
dert werden; nötig ist die LMS-Anweisung EDTS bzw. EDRS. — Die Anweisung CORS ver- 
ändert ohne Editor-Aufruf. Nötig sind dann ergänzende Anweisungen, z.B. XINSERT (Einfü- 
gen), *DELETE (Löschen), X*REPLACE (Ersetzen). 


COB1 (BS2000) V2.2A Benutzerhandbuch U254-J-Z55-1 1-21 


COB1-Übersetzer 


2 Handhabung des COB1-Übersetzers 


2.1 Einführung 


In Kapitel 1 wird gezeigt, wie der Benutzer sein COBOL-Quellprogramm in einer Datei bzw. 
einer COBOL-Bibliothek bereitstellen kann. Anschließend daran muß das Quellprogramm in 
eine Anweisungsfolge umgesetzt werden, die der Rechner verarbeiten kann. Diese Um- 
wandlung eines COBOL-Quellprogramms in Maschinenbefehle läßt sich im BS2000 in zwei 
Schritten erreichen: 


1. Übersetzen: Der COB1-Übersetzer erzeugt als Vorstufe des ablauffähigen Programms 
einen Objektmodul — und zwar einen sogenannten Bindemodul — und Protokolle. Der 
Benutzer steuert 


— Eingabe 
— Ausgabe 


© — Ablauf 


des COB1-Übersetzers. Dies wird im Kapitel 2 beschrieben. 


N 


. Binden: Der Bindemodul bzw. mehrere unabhängig voneinander erzeugte Bindemoduln 
wird bzw. werden zusammen mit Ablaufzeitsystem-Moduln zusammengefügt (= gebun- 
den). Es entsteht ein sogenannter Lademodul; siehe Kapitel 4. 


Das Ergebnis von Übersetzungs- und Binderlauf, das gebundene Programm (Lademodul), ist 
dann auf der Datenverarbeitungsanlage ablauffähig, d.h. die Folge seiner Maschinenbefehle 
wird vom Rechner ausgeführt. 


Quellprogramm 


COB1-Übersetzungslauf 


© Binderlauf 


Lademodul 
(ablauffähiges Programm) 


Bild 2-1 


Der Weg zum ablauffähigen Programm 
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2.2 


2.2.1 


2-2 


Eingabe 
Übersicht über Eingabemöglichkeiten 


Eingaben in den COB1-Übersetzer können folgende Quelldaten sein: 

— Quellprogramm: Dies ist die einfachste Eingabemöglichkeit. | 

— Quellprogrammteile: Sie können zusätzlich in ein Quellprogramm eingebaut werden. 
— S$teueranweisungen: Sie steuern Übersetzungsablauf und Übersetzerausgabe. 


Die Quelldaten können über unterschiedliche physikalische Datenträger den Übersetzer er- 
reichen, nämlich Datenstation, Floppy Disk, Lochkarten, Magnetplatten, Magnetbänder. Lo- 
gisch gesehen vereinheitlicht sich jedoch das Bild auf zwei Eingabemedien: 


Eingabe ist möglich Beispiel in 

Eingabedaten ... von SYSDTA ... aus einer COBOL- Abschnitt 
< Bibliothek 

vollständiges 2.2.3 
Quellprogramm 
Quellprogramm- 2.2.4 
teile 
Steueranwei- 2.2.5 
sungen 


Der Übersetzer erwartet seine Eingabedaten zunächst stets von der System-Eingabedatei 
SYSDTA. Aus dieser „Quelleingabe” kann sich ergeben, daß zusätzlich Quelldaten aus ener 
COBOL-Bibliothek einzulesen sind, ein Vorgang, den man als Sekundäreingabe bezeichnet. 


Bild 2-2 gibt eine Übersicht über die Eingabemöglichkeiten in den COB1-Übersetzer. 


Zusätzlich zu der Unterscheidung von Eingaben aus SYSDTA oder aus einer COBOL-Biblio- 
thek lassen sich die Eingabeformen in den Übersetzer auch in direkte und indirekte Eingabe 
aufgliedern (siehe Kapitel 1). 
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a  irekte Eingabe Glenn indirekte Eingabe — 


Floppy Disk 


SAM- oder ISAM 

Datei auf privaten 

oder gemeinschaftlichen 
Datenträgern 


| oder Element 


einer LMS-Bibl. SAM-Datei 


Lochkartenleser Datenstation (ab BS 2000 V7.1) auf Magnetband Bibliothek 


nur /SYSFILE SYSDTA= (CARD) nur /SYSFILE SYSDTA = 
im im dateiname. 
Stapelbetrieb Dialogbetrieb | /SYSFILE SYSDTA= /FILE dateiname, 


biblname LINK = COBLIB 
(elementname) 


/SYSFILE SYSDTA = (PRIMARY) /SYSFILE SYSDTA = (PRIMARY) | 
(Standardfall im Stapelbetrieb) (Standardfall im Dialogbetrieb) | COBLIB 4 
oder 
/FILE dateiname 


UNK = biblname 
System-Eingabedatei SYSDTA 


Bild 2-2 


Eingabeweg für den COB1-Übersetzer 


Die Zuweisung der Betriebsmittel erfolgt durch die angegebenen BS2000-Kommandos. 


2.2.2 Betriebsmittelzuweisung für die Eingabe 


Datenstation, Lochkartenleser, Plattendateien zählen für den COB1-Übersetzer zu den Be- 
triebsmitteln der Eingabe (siehe Abbildung 2-2). Der Benutzer hat die Auswahl der jeweils 
erforderlichen Betriebsmittel vor dem Aufruf des Übersetzers zu treffen, und zwar 


— für die Eingabe von SYSDTA mit dem SYSFILE-Kommando, 
— für die Eingabe aus einer COBOL-Bibliothek mit dem FILE-Kommando des BS2000. 
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2.2.2.1 


Eingabe über SYSDTA 


Standardmäßig ist der Eingabe-Systemdatei SYSDTA im Dialogbetrieb die Datenstation, 
im Stapelbetrieb die SPOOLIN- bzw. ENTER-Datei [2] des Prozesses zugewiesen. Sollen die 
Eingabedaten für die Übersetzung aus diesen Eingabequellen kommen, so ist kein Kom- 
mando erforderlich. Andernfalls hat der Benutzer die Möglichkeit, die Systemdatei SYSDTA 
mit Hilfe des SYSFILE-Kommandos einer Datei, einer Prozedurdatei, einem Lochkartenleser 
oder einem Element in einer Quellprogramm-Bibliothek zuzuweisen. Das Format für den be- 
treffenden Teil des SYSFILE-Kommandos lautet: 


Operation Operand 
dateiname 
bibIname (elementname) 
(SYSCMD) 
SYSFILE SYSDTA = (mn) 
(CARD) 
(PRIMARY) 
dateiname Name einer katalogisierten Datei 
biblname Name einer LMS-Quellprogrammbibliothek 
(elementname) Name eines Elementes der LMS-Quellprogrammbibliothek (max. 
8 Zeichen) 
(SYSCMD) schaltet die Systemdateien SYSDTA und SYSCMD zusammen, so 


daß aus der SYSCMD-Datei nicht nur BS2000-Kommandos, sondern 
auch Daten kommen können. Bei Prozeßbeginn sind beide standard- 
mäßig insofern zusammengeschaltet, als sie beide standardmäßig 
im Dialogbetrieb der Datenstation, im Stapelbetrieb der SPOOLIN- 
Datei zugewiesen sind. Diese Zuordnung wird als Primärzuweisung 


bezeichnet. 

(mn) Kartenleser bzw. Disketten-Gerät mit einem 2 Byte langen mnemo- 
technischen Gerätenamen. 

(CARD) Zuordnung eines Kartenlesers und Aufforderung an den Operateur, 
einen Kartenstapel in den Kartenleser einzulegen. 

(PRIMARY) Zurückzuweisung von SYSDTA auf die Primärzuweisung (siehe 
SYSCMD). 


Beispiele für die Eingabe von SYSDTA in den COB1-Übersetzer siehe in den Abschnitten 
2.2.3 bis 2.2.5. 
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2.2.2.2 Eingabe aus Bibliotheken 


Der COB1-Übersetzer kann vollständige Quellprogramme oder Quellprogrammteile aus ei- 
ner Bibliothek lesen. Es gibt mehrere Möglichkeiten die Bibliothek oder gegebenenfalls die 
Bibliotheken zuzuweisen. 


— Einlesen ganzer Quellprogramme 
SYSDTA-Zuweisung 


FILE bibliothekname,LINK = SRCLIB 
in Verbindung mit 
COBRUN SRCELEM = elementname 


SYSDTA-Umweisung über die Cobrun-Anweisung END 


— Einlesen von Quellprogrammteilen 


FILE-Zuweisung über Standard-LINK-Namen 
COBLIB und 
COBLIB1 — COBLIB4 (COPY-Hierarchie) 


FILE-Zuweisung über den LINK-Namen aus der COPY-Anweisung 


2.2.3 Eingabe von vollständigen Quellprogrammen 


Vollständige Quellprogramme können eingegeben werden (siehe auch Bild 2-2) 
— aus der SPOOLIN-Datei (nur Stapelbetrieb) 

— vom Lochkartenleser 

— von der Datenstation (nur Dialogbetrieb) 

— aus einer Quellprogrammdatei 

— aus einer Bibliothek 


Zu den einzelnen Eingabeformen siehe die folgenden Beispiele. 


Beispiel 10: Direkte Eingabe eines Quellprogramms über die SPOOLIN-Datei 


Die Folge der benötigten Kommandos sowie das Quellprogramm können 
— sich auf Lochkarten befinden*) 
— auf Floppy Disk gespeichert sein*) 


— in einer Datei stehen, die mit einem ENTER-Kommando [2] aufgerufen werden muß 
(ENTER-Datei). 


*) Das System übernimmt den gesamten Inhalt der Lochkarten bzw. der Daten auf Floppy Disk in eine SPOOLIN-Datei 
namens S.INtsn. Außerdem wird der künftige Stapelprozeß in die Auftragswarteschlange eingetragen. 
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Jeder Zeile entspricht eine Lochkarte bzw. ein Datensatz. 


© Das LOGON-Kommando identifiziert den Benutzer gegenüber dem System. Zwischen 
LOGON- und EXECUTE-Kommando können weitere Kommandos erforderlich sein, wie 
zum Beispiel das PARAMETER-Kommando zur Steuerung des COB1-Übersetzers. 


®© Das EXECUTE-Kommando lädt und startet den COB1-Übersetzer. Das Zeichen $ vor dem 
Namen des Übersetzers veranlaßt das System, den Übersetzer unter der Kennung des 
Systems, TSOS, zu suchen. 


® Das Quellprogramm — abgeschlossen mit /%* — folgt dem EXEC-Kommando und reicht 
bis zum nächsten Kommando, das mit einem Schrägstrich in Spalte 1 beginnt. 


®© LOGOFF beendet den Prozeß. Vor diesem Kommando können beliebige weitere Kom- 
mandos stehen, beispielsweise kann ein Binderlauf erfolgen. 


Beispiel 11: Direkte Eingabe eines Quellprogramms im Dialog (über Lochkartenleser) 


Ausschnitt aus einem Dialogprozeß: 


M) Das TYPE-Kommando meldet dem Operateur, welche Lochkarten im lokalen Lochkarten- 
leser verarbeitet werden sollen. 


@ Die Systemdatei SYSDTA ist im Dialogbetrieb standardmäßig der Datenstation zugeord- 
net. Da das Quellprogramm sich nun im Kartenleser befindet, wird SYSDTA auf dieses 
Gerät gelegt. 


® Der Übersetzer wird aufgerufen und liest das Quellprogramm von SYSDTA, d.h. dem 
Lochkartenleser. 


GO) Die Systemdatei SYSDTA wird wieder der Datenstation zugeordnet und damit der Kar- 
tenleser freigegeben. 
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Beispiel 12: Direkte Eingabe eines Quellprogramms im Dialog (über Datenstation) 


Ausschnitt aus einem Dialogprozeß: 


© Der COB1-Übersetzer wird aufgerufen und erwartet die Eingabe von der Systemdatei 
SYSDTA, in diesem Fall also der Datenstation. 


® Den Stern (*) gibt der Übersetzer als Aufforderung zur Eingabe des Quellprogramms 
aus. 


© /* beendet die Eingabe. 

Diese Eingabeform hat wenig praktische Bedeutung, da nach der Übertragung einer Ein- 
gabe Fehler nicht mehr korrigiert werden können. 

Beispiel 13: Indirekte Eingabe aus einer Quellprogramm-Datei 


(Die Kommandofolge gilt für Dialog- und Stapelbetrieb, das Beispiel zeigt den Ausschnitt 
eines Dialogs.) 


© Der Systemdatei SYSDTA wird die Datei QUELL.EINXEINS zugewiesen, in der sich das 
Quellprogramm befindet, das übersetzt werden soll. 


®© Der COB1-Übersetzer wird geladen und gestartet. Er verarbeitet die Daten, die von 
SYSDTA kommen. 


® Die Systemdatei SYSDTA wird für nachfolgende Aufgaben wieder der Datenstation zu- 
gewiesen. 


Diese Eingabeform für ein COBOL-Quellprogramm wird am häufigsten verwendet. 
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Beispiel 14: Indirekte Eingabe aus einer Quellprogramm-Datei 


@ Der anschließend aufgerufene Übersetzer soll mit COBRUN-Operanden gesteuert wer- 
den. 


@ Die Eingabe von COBRUN-Operanden ist beendet und der Übersetzer soll den zu bear- 
beitenden Quellcode über SYSDTA aus der BS2000-Datei QUELLCODE1 lesen. 


@ Nach Verarbeitung der Datei QUELLCODEI1 hat der COB1-Übersetzer SYSDTA wieder 
auf PRIMARY zurückgesetzt. Das nächste BS2000-Kommando wird bearbeitet. 


PARAM CODE =1 legt fest, daß der nächste Übersetzer keine Übersetzer-Steueranwei- 
sungen bearbeiten soll. 


& Die Systemdatei SYSDTA wird der Datei QUELLCODE2 zugewiesen. 


& Der COB1-Übersetzer wird aufgerufen und bearbeitet den Inhalt der Datei QUELLCODE2 
mit Standardübersetzungs-Parametern. 
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© Beispiel 14a: COBOL-Programm aus einer LMS-Quellprogramm-Bibliothek übersetzen 


Unter dem Elementnamen ELECOB ist in der LMS-Quellprogramm-Bibliothek LMS.SOURCE 
das Programm mit dem PROGRAM-ID-Namen BEISP3 abgelegt. Zur Einleitung der Überset- 
zung sind folgende Kommandos bzw. Anweisungen nötig: 


Erläuterung: 


® Die Systemdatei SYSDTA wird der Quellprogrammbibliothek LMS.SOURCE zugewiesen 
und darin dem Element mit Namen ELECOB. 


® Aufruf des COB1-Übersetzers. Er greift direkt auf die zugewiesene Datei zu. 
® SYSDTA erhält wieder die Primärzuweisung. 
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2.2.4 


2-10 


Beispiel 14b: Indirekte Eingabe aus einer LMS-Programmbibliothek 


Unter dem Elementnamen BIBELEM1 ist in der Programmbibliothek PLAMBIB1 das Quell- 
programm mit dem PROGRAM-ID-Namen BEISP4 abgelegt. Zur Einleitung des Überset- 
zungslaufs sind folgende Kommandos bzw. Anweisungen nötig: 


Erläuterung: 


@® Die Programmbibliothek mit dem Namen PLAMBIB1 wird zugewiesen und mit dem 
Standardlinknamen SRCLIB verknüpft. 


@ Es sollen COBRUN-Steueranweisungen gelesen werden. 


GI Das zu übersetzende COBOL-Programm steht unter dem Elementnamen BIBELEM1 in 
der mit FILE-Kommando zugewiesenen LMS-Programmbibliothek. 


@) Die Eingabe von COBRUN-Anweisungen ist abgeschlossen. COB1 beginnt mit der Bear- 
beitung des Quellcodes. 


Eingabe von Quellprogrammteilen 


Quellprogrammteile (COPY-Elemente) können getrennt vom Quellprogramm, in dem sie 
Verwendung finden, in Bibliotheken gespeichert werden. Dies empfiehlt sich vor allem, 
wenn identische Teile in verschiedenen Quellprogrammen vorkommen. (Kapitel 1 erklärt, 
wie der Benutzer solche Daten in eine Bibliothek mit Hilfe des Dienstprogrammes LMS ein- 
geben kann.) 


Im Quellprogramm selbst steht stellvertretend für diese Programmteile eine COPY-Anwei- 
sung. COPY-Anweisungen dürfen an beliebiger Stelle im Quellprogramm stehen. 


Vor dem Aufruf des Übersetzers muß die Bibliothek, in der sich die Quellprogrammteile be- 
finden, mit einem FILE-Kommando zugewiesen und mit dem Dateikettungsnamen (LINK- 
Namen) verknüpft werden. Beim Erkennen der COPY-Anweisung im zu übersetzenden 
Quellprogramm fügt der Übersetzer dann aus der zugewiesenen Bibliothek das Element ein, 
dessen Name in der COPY-Anweisung angegeben wird. Der COPY-Elementtext wird dabei 
so übersetzt, als wäre er im Quellprogramm selbst geschrieben worden. 
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Quellcode kann in einer LMS-Bibliothek im Bibliotheksteil „Quellprogramm-Bibliothek” oder 
„Programmbibliothek“ stehen. Im Teil „Programmbibliothek” muß das Quellcode-Element 
mit dem Typ S eingetragen sein. 


Die COPY-Anweisung (siehe auch Manual „COB1 Beschreibung” [1]) im COBOL-Quellpro- 
gramm hat folgendes Format: 


wort-2 
COPY textname Id bibliotheksname] [SUPPRESS] | REPLACING wort-1 BY | literal-1 | 


bezeichner-1 
wort-4 
[wort-3 BY į literal-2 Ee l : 


bezeichner-2 


textname 1 bis 30 Zeichen lang, bestehend aus Buchstaben, Ziffern und Bindestrich. 

(früher Die ersten 8 Zeichen müssen eindeutig sein und den Konventionen des je- 

„elementname“) weiligen Bibliothekssystems entsprechen. Das erste Zeichen muß ein 
Buchstabe sein. Als letztes oder achtes Zeichen ist der Bindestrich unzu- 
lässig. Zwischenraum und Punkt dürfen nicht verwendet werden. 


bibliotheksname 1 bis 30 Zeichen lang, bestehend aus Buchstaben und Ziffern. Die ersten 
8 Zeichen müssen ein gültiger Linkname sein. Dieser Name muß auch im 
FILE-Kommando vor dem Aufruf des COB1-Übersetzers als LINK-Name 
angegeben werden: 


/FILE dateiname,LINK=bibliotheksname 


(wobei „dateiname“ diejenige Datei bezeichnet, in welcher der zu kopie- 
rende Text steht). 


Stehen in einem Quellprogramm mehrere COPY-Anweisungen, so sind 
unterschiedliche Bibliotheksnamen zulässig. Entsprechend sind mehrere 
FILE-Kommandos abzusetzen. 


Fehlt die Angabe von bibliotheksname, so arbeitet COB1 mit Standard- 
Linknamen, für die vor Aufruf des COB1-Übersetzers die erforderlichen 
Bibliotheksdateien mit einem FILE-Kommando zugewiesen worden sein 
müssen. 


Steht das zu kopierende Bibliothekselement in einer bestimmten LMS- 
Quellprogramm- oder LMS-Programm-Bibliothek kann diese über den 
Link-Namen COBLIB zugewiesen werden. Es besteht auch die Möglich- 
keit, vor Beginn der Übersetzung über die Standard-Linknamen COBLIB, 
COBLIB1—COBLIB4 bis zu 5 LMS-Programm-Bibliotheken (PLAM-Biblio- 
theken) zuzuweisen. Diese durchsucht COB1 hierarchisch von COBLIB 
über COBLIB1 bis COBLIB4, bis das zu kopierende Element gefunden 
wurde. 


SUPPRESS Dieser Zusatz bewirkt, daß die Protokollierung des COPY-Elements in der 
Quellprogrammliste unterdrückt wird. Die Angabe erübrigt sich, wenn 
eine COBRUN-Anweisung mit dem Operanden NOCOPY gegeben wurde. 


REPLACING Dieser Zusatz bewirkt, daß im kopierten Bibliothekstext jedes im Original- 
Bibliothekstext enthaltene „wort-1“ durch das ersetzt wird, was hinter BY 
angegeben ist. Der Originaltext in der Bibliothek bleibt unverändert. 


wort-1/2/3/4 Jedes beliebige COBOL-Wort, jeder Datenname, Prozedurname, Be- 
literal-1/2 dingungsname, Merkname oder Dateiname, jede Zeichenfolge ist zuläs- 
bezeichner-1/2 sig. 
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Regeln: 


— Die Syntax des Textes wird vom Übersetzer im Rahmen des gesamten Quellprogramms 
geprüft. 

— In der Quellprogrammliste ist der Bibliothekstext nach der zugehörigen COPY-Anwei- 
sung aufgelistet, gekennzeichnet durch 


ein CC" vor der Nummer jeder Quellprogrammzeile. 


Die Auflistung der COPY-Elemente in der Quellprogrammliste kann durch den Zusatz 
SUPPRESS in der COPY-Anweisung oder durch den Operanden NOCOPY in einer COBRUN- 


Anweisung unterdrückt werden. 


Beispiel 15: Eingabe von Quellprogrammteilen 


Erläuterung: 


@ SYSDTA wird der Eingabedatei QUELL.BEISPIEL.1 zugewiesen. Von dort erhält der 
Übersetzer ein Quellprogramm, in dem 2 Programmteile durch COPY-Anweisungen er- 
setzt sind. 


© Das FILE-Kommando weist die Bibliothek BIB.1 zu und verknüpft sie mit dem Standard- 
Linknamen COBLIB. 


Gi Das zweite FILE-Kommando weist die Bibliothek BIB.2 zu und verknüpft sie mit dem 
Linknamen BIBLIO2 (=bibliotheksname in ©). 


@& Der Text mit dem Namen XYZ wird aus der Bibliothek BIB.1 in das Quellprogramm ko- 
piert. (Siehe CG 


Handelt es sich bei BIB.1 um eine LMS-Programmbibliothek, wird das Element mit dem 
Namen XYZ, dem Elementtyp S und der alphanumerisch größten Version kopiert. 

Wird der Text in der Bibliothek mit dem Standard-Linknamen COBLIB nicht gefunden, so 
werden auch die Bibliotheken mit den Standard-Linknamen COBLIB1 bis COBLIB4 da- 
nach durchsucht, sofern sie mit FILE-Kommandos zugewiesen wurden (COPY-Suchhier- 
archie). 


6) Der Text mit dem Namen ABC wird aus der Bibliothek mit dem Dateinamen BIB.2 und 
dem Linknamen BIBLIO2 in das Quellprogramm kopiert. (Siehe ©.) 
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Eingabe von Steueranweisungen 


Ablauf und Ausgabe des COB1-Übersetzers steuert der Benutzer durch 


— PARAMETER-Kommando 
— COBRUN-Anweisungen. 


Das PARAMETER-Kommando gilt für einen ganzen Prozeß. Seine ausführliche Beschrei- 
bung steht im Abschnitt 2.4.2. 


Dagegen gelten COBRUN-Anweisungen nur für die Übersetzung in der sie gegeben werden. 
Sie werden im folgenden beschrieben. (Siehe auch Abschnitt 2.4.3) 


Format einer COBRUN-Anweisung: 
COBRUN Operand 1 [,‚Operand 2]... 


Zum Beispiel: COBRUN DIAGTEXT= GERMAN, ERRLST 
COBRUN LOW #UP, TRUNCATE = NO 


Damit der COB1-Übersetzer COBRUN-Anweisungen anfordert, muß der Benutzer vor dem 
Aufruf des COB1 das Kommando 


/PARAM CODE=2 


geben. Nach Aufruf des COB1-Übersetzers gibt man dann COBRUN-Anweisungen über die 
Systemdatei SYSDTA ein. Je nach der Zuweisung von SYSDTA können diese Anweisungen 
entweder direkt am Datensichtgerät oder aus einer Datei eingegeben werden. 


Zu beachten ist: 
— Die COBRUN-Anweisungen müssen mit der END-Anweisung abgeschlossen werden. 


— folgende Reihenfolge ist einzuhalten: 
COBRUN-Anweisungen 
END-Anweisung 
Quellprogramm 

— Kommen COBRUN-Anweisungen und Quelldaten von verschiedenen Eingabequellen, so 
muß SYSDTA nach den COBRUN-Anweisungen umgewiesen werden, indem man in der 
END-Anweisung den Namen der Datei oder der Bibliothek und des Elements angibt, aus 
der weitere Quelldaten gelesen werden sollen. Am Ende der Übersetzung setzt COB1 
SYSDTA wieder auf (SYSCMD) zurück. 


Format der END-Anweisung: 


(resume d 
END 
bibIname(elementname) 


Die folgende Übersicht beschreibt in Kurzform die Aufgaben der verschiedenen COBRUN- 
Operanden. Ihre ausführliche Beschreibung ist in Abschnitt 2.4.3 zu finden. 


COBRUN-Operanden steuern den Ablauf der Übersetzung: 


QUOTEI veranlaßt, daß ein Apostroph D) im Quellprogramm als Anführungszeichen 
(“) interpretiert wird (siehe /PARAM-Schlüsselwort CODE =3). 

SEMCHK legt fest, daß das Quellprogramm nur syntaktisch und semantisch überprüft 
und kein Bindemodul erzeugt wird. 

SYNCHK bewirkt den Abbruch des Übersetzungsvorgangs, nachdem das Quellpro- 
gramm ausschließlich auf syntaktische Fehler geprüft worden ist. 

SRCELEM = nennt den Elementnamen, unter dem in einer LMS-Programmbibliothek das 

elementname zu übersetzende COBOL-Quellprogramm abgespeichert ist. Diese Bibliothek 


muß mit FILE-Kommando über den LINK-Namen SRCLIB zugewiesen sein. 
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COBRUN-Operanden beeinflussen die Form des übersetzten Programms (Bindemodu!): 


TITR 
ACTKEY = qu 
LINK 
LOW # UP 
NESTPF 
PARAM8 
RANGECHECK = 
CONTINUE 
TERM 
NO 
SSEQ # GEN 
ALL 
SYMTEST = [mar 
NO 


legt den Wertebereich für den ACTUAL KEY fest. 
(Betrifft nur die direkte Dateiorganisation) 


bewirkt, daß der LINK-Name für Dateien aus dem Herstellerwort der 
ASSIGN-Klausel (siehe diese in [1]) statt aus dem Dateinamen der 
SELECT-Klausel entnommen wird. 


bewirkt bei Ausführung einer ACCEPT-Anweisung, daß eingegebene Klein- 
buchstaben in Großbuchstaben umgesetzt werden. 


Der Übersetzer generiert Befehlsfolgen für PERFORM-Anweisungen, die auf 
einen gemeinsamen EXIT führen. 

Achtung: Der Operand erzeugt eine umfangreichere Programmsteuerung. 
Dies kann zu Einbußen bei Laufzeit und zu längeren Objekten führen. 
Beispiel: 


PERFORM A THRU C. o 

A. | 
PERFORM B THRU C. © 

B. 

Ç. | 
EXIT. + Dieser EXIT ist für D und ®© gemeinsam. 


hat zur Folge, daß nach einer MOVE-Anweisung auf numerische Felder aus 
Leerstellen die Ziffer Null erzeugt wird. 


Zur Programmlaufzeit kann die Einhaltung von Tabellengrenzen beim An- 
sprechen von Tabellenelementen überprüft werden. 


CONTINUE: Nur Meldung des eigentlich unzulässigen Zugriffs. 


TERM: Meldung der versuchten Indexgrenzenverletzung und Pro- 
grammabbruch. 
NO: Keine Überprüfung (Standard). 


die Meldungen 90xx und 91xx werden ergänzt mit der von COB1 vergebenen 
Quellprogramm-Zeilennummer der Anweisung, bei deren Ausführung die 
Meldung ausgegeben wurde. 


legt die Art der Informationen fest, die der Übersetzer für die Dialogtesthilfe 

AID bereitstellt, Diese Informationen werden dem Bindemodul übergeben. 

Sie lassen sich in zwei Teile gliedern, 

— eine „List for Symbolic Debugging” (LSD), in der die innerhalb des Mo- 
duls definierten symbolischen Namen verzeichnet sind und 

— ein „External Symbol Dictionary“ (ESD), welches die Externbezüge des 
Moduls registriert. 

(Zum Format dieser Informationen siehe [23].) 


ALL: Dieser Wert muß gesetzt werden, wenn das Programm mit der Dia- 
logtesthilfe AID symbolisch überwacht werden soll. 
Der Übersetzer erzeugt dann sowohl LSD- als auch ESD-Informatio- 
nen, so daß beim Testen mit AID symbolische Namen aus dem Quell- 
programm (wie in [25] beschrieben) verwendet werden können. 
Hinweise: 1. Durch COBRUN SYMTEST=ALL wird ein evtl. beste- 
hendes PARAM SYMDIC=YES außer Kraft gesetzt, d.h. 
ISD-Informationen werden nicht erzeüöt. 
2. Bei segmentierten Programmen ist die Erzeugung von 
LSD-Informationen (und damit symbolisches Testen mit 
AID) nur dann möglich, wenn der Bindemodul mit 
COBRUN MODULE = bibliotheksname in eine PLAM-Bi- 
bliothek ausgegeben wird. 
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MAP: Der Übersetzer erzeugt lediglich ESD-Testhilfeinformationen vom Typ 
Übersetzungseinheit. Dabei wird dem Objektmodul (bei segmentier- 
ten Programmen: allen Moduln) ein symbolischer Name zugeordnet, 
der aus den ersten 8 Zeichen des Namens im PROGRAM-ID-Paragra- 
phen besteht. Beim Testen mit AID kann dieser Name zur Qualifika- 
tion des Quellprogrammes verwendet werden. 

Eine darüber hinausgehende Programmüberwachung auf symboli- 
scher Ebene mit AID ist nicht möglich. 


NO: Dieser Wert ist nur zu setzen, wenn das Binder-/Ladersystem Objekt- 
moduln mit ESD-Einträgen vom Typ Übersetzungseinheit nicht verar- 
beiten kann. Der Übersetzer gibt dann weder LSD- noch ESD-Test- 
hilfeinformationen an den Bindemodul weiter. 

Symbolisches Testen mit AID ist nicht möglich. 


Standardwert ist SYMTEST = MAP. 


TCBENTRY=name Name der Verbindungstabelle zu UTM (vgl. [10], [14]), die COB1 erzeugt. 
Diese Tabelle enthält Zeiger zu internen, vom Übersetzer erzeugten Arbeits- 
bereichen, die bei Wiederdurchlauf eines UTM-Teilprogramms von UTM er- 
neut initialisiert werden müssen. „name“ kennzeichnet den Anfang dieser 
Zeiger-Tabellen. l 


YES legt fest, wie sich die in der PICTURE-KIausel angegebene Dezimalstellen- 
TRUNCATE = "ALL anzahl bei Datenfeldern auswirkt, für die USAGE IS COMPUTATIONAL ver- 
NO einbart wurde: 


YES: Bei der Übertragung eines numerischen Literals in ein binäres Daten- 
feld wird nur die Anzahl Dezimalstellen berücksichtigt, die in der PIC- 
TURE-Klausel angegeben wurde. 

Überschüssige Dezimalziffern werden ggf. abgeschnitten. 
Beispiel: 

77 EMPF PIC S999 USAGE IS COMPUTATIONAL. 

MOVE 1234 TO EMPF. ; 

Inhalt von EMPF: 234 


ALL: Über die bei TRUNCATE = YES angegebenen Fälle hinaus wird auch 
bei allen MOVE-Anweisungen in binäre Felder nur die Anzahl Dezimal- 
stellen berücksichtigt, die in der PICTURE-Klausel vereinbart wurde. 
Überschüssige Dezimalziffern werden ggf. abgeschnitten. 


NO: Bei der Übertragung eines numerischen Literals in ein binäres Daten- 
feld wird die Anzahl Binärstellen berücksichtigt, die für das Empfangs- 
feld über die PICTURE-Klausel reserviert wurde. 

Es werden nur dann Binärstellen des Literals abgeschnitten, wenn ihre 
Anzahl die tatsächliche Länge des Empfangsfeldes übersteigt. 
Beispiele: 
1. 77 EMPF PIC S999 USAGE IS COMPUTATIONAL. 
MOVE 1234 TO EMPF. 
Inhalt von EMPF: 1234 
2. 77 EMPF PIC S999 USAGE IS COMPUTATIONAL VALUE IS 65536. 
Inhalt von EMPF: 0 


Standardwert ist TRUNCATE = YES. 


COBRUN-Operanden steuern die Listen- oder Modulausgabe des COB1-Übersetzers: 


ERRLST erlaubt die Unterdrückung von Objektprogramm-, Adreß- und Querverweis- 
listen bei Fehlern mit SEVERITY CODE größer oder gleich 2. 


LINEnn legt für die Listenausgabe die maximale Zeilenanzahl nn pro Seite fest 
(Standard: nn = 64). 


MAPALL veranlaßt die Ausgabe einer doppelten Adreßliste, die einmal aufsteigend 
nach Quellprogrammfolgenummern (Standard) und einmal alphabetisch 
nach Datennamen sortiert ist. 


MAPSRT bewirkt die Ausgabe einer Adreßliste, die nur nach Datennamen sortiert ist. 
MODULE = steuert die Ausgabe eines Objektmoduls in eine LMS-Programmbibliothek. 

bibliotheks- bibliotheksname = Dateiname einer PLAM-Bibliothek. (Dieser Operand ist 
name wirkungslos, falls gleichzeitig /PARAM CARD=NO, /PARAM DISC=NO 


oder COBRUN SYNCHK gilt.) 
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NOCOPY unterdrückt die Protokollierung aller COPY-Elemente. Sollen nur einzelne 
Elemente nicht protokolliert werden, so ist nicht dieser Operand, sondern 
in der betreffenden COPY-Anweisung der Zusatz SUPPRESS anzugeben. 


NODDLIST | Unterdrückt die Protokollierung der SUB-SCHEMA SECTION des Quellpro- 
gramms in der Quellprogrammliste. 


WARLST bewirkt die Ausgabe der Listen in die Systemdatei SYSLST. 


COBRUN-Operanden steuern die vom COB1-Übersetzer erzeugten Meldungen: 


DIAGTEXT erlaubt die Wahl zwischen englischen und deutschen Fehlermeldungstexten. 

_ J ENGLISH ; 

(GERMAN 

ERDICT veranlaßt die Ausgabe einer Liste sämtlicher Fehlermeldungen des COB1- 
Übersetzers. 

ERRPRn unterdrückt Fehlermeldungen für Fehler mit einem SEVERITY CODE kleiner 


als n. Für n können folgende Werte angegeben werden: 


n=I Alle Fehler der Fehlerklassen I, 0, 1, 2, 3 werden protokolliert. 
n=0 Alle Fehler der Fehlerklassen 0, 1, 2, 3 werden protokolliert. 
n=1 Alle Fehler der Fehlerklassen 1, 2, 3 werden protokolliert. 
n=2 Alle Fehler der Fehlerklassen 2, 3 werden protokolliert. 

n=3 Alle Fehler der Fehlerklassen 3 werden protokolliert. 


Fehlt dieser Operand, wird n = I angenommen. 


Hinweis: Unterdrückte Fehlermeldungen werden mitgezählt. In der Fehler- 
liste wird die Meldung > PRINTING SUPPRESSED < ausgegeben. 


SEQERR veranlaßt, daß eine Fehlermeldung in die Fehlerliste ausgegeben wird, sobald 
Quellprogrammsätze nicht in aufsteigender Reihenfolge vorgefunden werden. 


Beispiel 17: Eingabe von COBRUN-Anweisungen 


© Die Vereinbarung CODE =2 legt fest, daß der COB1-Übersetzer COBRUN-Anweisungen 
verarbeiten soll. 


® Aus der Systemdatei SYSDTA (hier: Datenstation) erwartet der COB1-Übersetzer die er- 
ste COBRUN-Anweisung. 


® Die Eingabe von COBRUN-Anweisungen wird abgeschlossen und der Systemdatei 
SYSDTA die Quellprogramm-Datei QUELL.EINXEINS zugewiesen, deren Übersetzung 
damit eingeleitet wird. 


© Der CODE-Wert wird auf Standardwert zurückgesetzt, so daß bei evtl. folgenden Über- 
setzungen keine COBRUN-Anweisungen mehr erwartet werden. 
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Ausgabe 


Übersicht über Ausgabemöglichkeiten 


Der COB1-Übersetzer kann während seines Ablaufs folgende Ausgaben erzeugen: 


— Bindemoduln, d.h. die Übersetzung des Quellprogrammes in Maschinensprache (Ob- 
jektprogramm). Wahlweise wird dem Bindemodul ein Internadreßbuch (ISD, Internal 
Symbol Dictionary) bzw. eine „List for Symbolic Debugging” (LSD) angefügt. Dadurch 
kann der Benutzer zur Programmablaufzeit die Dialogtesthilfe IDA (Interactive Debug- 
ging Aid) bzw. AID (Advanced Interactive Debugger, siehe 5.3 und [25]) mit den symboli- 
schen Adressen des Quellprogrammes einsetzen. 


— Listen, die das eingegebene Quellprogramm und das erzeugte Objektprogramm proto- 
kollieren, sowie Listen der im Programm verwendeten Adressen und Querverweise. Au- 
Berdem wird eine Liste aller während der Übersetzung im Quellprogramm festgestellten 
Fehler erzeugt: 


Steueranweisungsliste (COBRUN/PARAM LISTING) 
Quellprogrammliste (SOURCE LISTING) 
Objektprogrammliste (OBJECT PROGRAM LISTING) 


ciel guf | (LOCATOR/MAP LISTING) 
Querverweisliste 
Fehlermeldeliste (DIAGNOSTIC LISTING) 


— Meldungen über den Ablauf der Übersetzung; sie gehen nach SYSOUT. Anhang 1 ent- 
hält die Liste der vom Übersetzer ausgegebenen „90/91er-Meldungen“. 


Bindemoduln werden standardmäßig in die temporäre Bindemoduldatei * des laufenden 
Prozesses gebracht. Ist COBRUN MODULE =bibliotheksname angegeben, erfolgt die Aus- 
gabe der Bindemoduln in eine Programmbibliothek (LMS [21]). 

Die Sicherstellung der Bindemoduln wird in Kapitel 3 behandelt. 


Bei Fehlermeldungen und Listen kann der Benutzer zwischen der Ausgabe in temporäre und 
katalogisierte Dateien wählen. Die temporären Dateien gibt das System automatisch auf 
den Drucker aus, wobei der Benutzer (mit dem COBRUN-Operanden WRLST) noch ent- 
scheiden kann, ob die Ausgabe bereits während des Übersetzerlaufs oder erst bei Prozeß- 
ende (LOGOFF-Bearbeitung) eingeleitet werden soll. In beiden Fällen werden die temporä- 
ren Dateien nach erfolgter Ausgabe automatisch gelöscht. Im Gegensatz dazu kann der Be- 
nutzer die Informationen in den katalogisierten Dateien zu einem beliebigen Zeitpunkt mit 
Hilfe des PRINT-Kommandos [2] ausgeben lassen. 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 2-17 


Übersetzer-Ausgabe 


2.3.2 


COBRUN wahlweise (PARAMETER-Kommando) 


MODULE = 
bibliotheksname 
wahlweise (COBRUN-Para- 
meter WRLST) 


temporäre 
Systemdatei ' 


SYSLST 


temporäre 

Bindemodul- Programm- 

datei des bibliothek wahlweise (SYSFILE-Kommando) 
Prozesses 


Schnell- Schnell- 
drucker drucker 


Ausgabe wird Ausgabe wird bei 
während des Prozeßende eingeleitet 


Übersetzerlaufs 
eingeleitet 


Bild 2-5 


Ausgabe von Bindemoduln und Listen 


Betriebsmittelzuweisung für die Ausgabe 


Zu den Betriebsmitteln für die Ausgaben des COB1-Übersetzers zählen katalogisierte Da- 
teien und temporäre Dateien. Bei Fehlermeldungen und Listen kann der Benutzer den Zeit- 
punkt der Ausgabe bestimmen und die Betriebsmittel auswählen. Der COB1-Übersetzer 
macht standardmäßig Vorgaben, die der Benutzer abändern kann, und zwar mit folgenden 
BS2000-Kommandos und COB1-Steueranweisungen: 


— PARAMETER-Kommando, 

— FILE-Kommando, | 

— COBRUN-Anweisung mit Operand MODULE =bibliotheksname 
— COBRUN-Anweisung mit Operand WRLST, 

— SYSFILE-Kommando mit Operand SYSLST. 


Mit dem PARAMETER-Kommando kann der Benutzer entscheiden, in welchen Dateityp 
bzw. ob überhaupt ausgegeben werden soll. Das Format dieses Kommandos lautet: 


/PARAMIETER] schlüsselworti = werti[,schlüsselwort2=wert2]... 


Abschnitt 2.4.2 enthält die ausführliche Beschreibung sämtlicher Schlüsselwörter des 
PARAM-Kommandos, die folgende Übersicht zeigt nur diejenigen Schlüsselwörter, die Be- 
triebsmittel für die Ausgabe zuweisen. Standardwerte sind unterstrichen; sie gelten, wenn 
der Benutzer keine Angaben macht. 
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Schlüsselwörter des PARAMETER-Kommandos für die Zuweisung der Betriebsmittel: 


Name der Ausgabe in Ausgabe in Unterdrückung Unterdrückung bei 
Ausgabe temporäre Datei katalogisierte Datei | der Ausgabe Fehlern mit 
SEVERITYCODE>2 


DIAG =NO und 
ERRFIL= NO 


ERRFIL = YES 
Dateiname: 
ERRFIL.COB1. 
progname 


Fehler- DIAG = YES 
meldungen 

(DIAGNOSTIC 
LISTING/FILE) 

Quellpro- LIST = YES 
grammliste 

(SOURCE 

LISTING) 


SAVLST = SOURCE 
oder 

SAVLST = ALL 
Dateiname: 
SRCLST.COB1. 
progname 


LIST=NO und 
SAVLST = NO 


Objektpro- OBJLST = YES SAVLST = OBJECT | OBJLST =.NO und | ERRLST = NO*) 
grammliste oder SAVLST = NO 

(OBJECT SAVLST = ALL 

PROGRAM 

LISTING) Dateiname: 


OBJLST.COB1. 
progname 


SAVLST = LOCMAP 
oder 

SAVLST = ALL 
Dateiname: 
LOCLST.COB1. 
progname 


MAP=NO und 
SAVLST = NO 


ERRLST =NO*) 


Adreßliste MAP = YES 
(LOCATOR/ 

MAP 

LISTING) 

Querver- XREF = YES 
weisliste 

(LOCATOR/ 

MAP 

LISTING) 


*) Gleiche Wirkung hat der COBRUN-Operand ERRLST. 


SAVLST = LOCMAP 
oder 

SAVLST = ALL 
mit XREF = YES 
Dateiname: 
LOCLST.COB1. 
progname 


XREF = NO und 
SAVLST = NO 


ERRLST = NO*) 


Standardmäßig vorgegeben sind also folgende Funktionen: 


1. die Ausgabe des Objektprogramms in die temporäre Bindemoduldatei A" des Prozes- 
' Ses, 

2. die Ausgabe der Fehlermeldungsliste auf den Drucker, 

3. die Ausgabe der Adreßliste auf den Drucker. 

Sie sind in einem Prozeß so lange gültig, bis der Benutzer sie durch ein oder mehrere PARA- 

METER-Kommandos abändert. Ein PARAM-Kommando beeinflußt dabei nur die Schlüssel- 

wörter, die in ihm explizit angegeben werden, d.h. es setzt die übrigen Schlüsselwörter 


nicht auf ihre Standardwerte zurück. Dies kann der Benutzer in einer Prozedurdatei durch 
© das STEP-Kommandbo [2] erreichen. 
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Beispiel 18: Verwendung des PARAMETER-Kommandos bei der Steuerung der Überset- 
zer-Ausgabe 


Das PARAMETER-Kommando bestimmt, daß eine Fehlerdatei (ERRFIL) erzeugt wird. 
Außerdem erzeugt der Übersetzer eine Quellprogramm- und eine Objektprogrammliste. 


Der COB1-Übersetzer meldet die Erzeugung der Fehlerdatei ERRFIL.COB1.EINXEINS 
(EINXEINS ist der Programmname). 


Das System meldet, daß ein von der Übersetzung unabhängiger Prozeß mit der Prozeß- 
folgenummer (TSN) 3575 zum Ausdrucken der Listen initialisiert wurde. 


Dateinamen und Dateieigenschaften für die katalogisierten Ausgabedateien des COB1- 
Übersetzers sind standardmäßig vorgegeben. Der Benutzer kann aber mit Hilfe des FILE- 
Kommandos diese Vorgaben abändern, zum Beispiel Dateinamen eigener Wahl vergeben. 
Dazu muß er vor dem Aufruf des Übersetzers die gewünschten Eigenschaften in einem 
FILE-Kommando mit den entsprechenden Dateikettungsnamen (LINK-Namen) verknüpfen, 
die der COB1-Übersetzer verwendet: 


/FILE dateiname,LINK = dateikettungsname.... 

Name der Ausgabedatei Dateikettungsname des COB1-Übersetzers 
Datei mit Quellprogrammliste SRCLINK 

Datei mit Objektprogrammliste | OBJLINK | 
Datei mit Adreßliste LOCLINK 


Fehlerdatei ERRLINK 


Beispiel 19: Verwendung eines Dateikettungsnamens 
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© Die vom Übersetzer zu erzeugende Fehlerdatei bekommt den Namen FEHLER anstelle 
des Standardnamens ERRFIL.COB1.programmname. 


®© Die Fehlerinformation wurde in die Datei FEHLER ausgegeben. 


® Der Übersetzer fand vier Fehler: drei in der Fehlerklasse 1 und einen in der Fehler- 
klasse 2. 


GO Die Datei FEHLER soll beim nächsten Übersetzungslauf nicht mehr verwendet werden; 
ihre Verkettung mit dem Dateikettungsnamen ERRLINK wird deshalb hier gelöscht. 


Durch eine COBRUN-Anweisung mit dem Operanden WRLST kann der Benutzer erreichen, 
daß die Listen in die Systemdatei SYSLST ausgegeben werden: Sämtliche Listen, deren 
Ausgabe standardmäßig bereits während des Übersetzungslaufes eingeleitet wird, werden 
also erst nach Prozeßende ausgespult. Das hat den Vorteil, daß der Benutzer noch während 
des Prozeßlaufs mit dem SYSFILE-Kommando [2] die Ausgabe auf SYSLST steuern kann. 


Beispiel 20: Listenausgabe in eine katalogisierte Datei 


@® Für die nachfolgenden Übersetzungen wird vereinbart, daß der COB1-Übersetzer 
COBRUN-Anweisungen aus der Systemdatei SYSDTA einliest (CODE=2) und eine Ob- 
jekt- und eine Quellprogrammliste ausgibt (OBJLST=YES, LIST=YES). 


@ Für die Datei PROTOKOLL weist das FILE-Kommando Speicherplatz zu. 


Gi Das SYSFILE-Kommando erklärt die Datei PROTOKOLL zur System-Ausgabedatei 
SYSLST. 


@ Dem COB1-Übersetzer wird mitgeteilt, daß er die Listen nach SYSLST ausgeben soll. 
Wegen der zuvor getroffenen Vereinbarung ist SYSLST hier die Datei PROTOKOLL. 


& Schließen der Datei PROTOKOLL. 
Diese katalogisierte Datei kann nun z.B. mit dem Kommando 
/PRINT PROTOKOLL, SPACE =E 
ausgedruckt werden. 
Die Systemdatei SYSLST weist nun auf die temporäre (EAM-)Ausgabedatei des Prozes- 
ses, die bei Prozeßende automatisch ausgegeben wird. 
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2.3.3 Ausgabe von Bindemoduln 


Der COB1-Übersetzer überträgt die eingegebenen Quelldaten in Maschinensprache und er- 
zeugt auf diese Weise ein sogenanntes Objektprogramm, das aus einem oder mehreren Bin- 
demoduln besteht. Der Benutzer kann veranlassen, daß dem Objektprogramm ein Intern- 
adreßbuch (ISD, Internal Symbolic Dictionary) oder ein symbolisches Adreßbuch (LSD, List 
for Symbolic Debugging) zugeordnet wird, das die symbolischen Adressen des Quellpro- 
gramms speichert. 


Der COB1-Übersetzer gibt Bindemoduln standardmäßig in die temporäre EAM-Bindemodul- 
datei „x“ des laufenden Prozesses aus, die auch von anderen Übersetzern (z.B. ASSEMB, 
FORT) für diesen Zweck verwendet wird. Die Bindemoduln werden dort additiv, d.h. ohne 
Bezug zueinander, abgespeichert. 


Die EAM-Bindemoduldatei „X“ gehört zu dem Prozeß, in dem die Übersetzung stattfindet. 
Sie wird beim ersten Übersetzungslauf für diesen Prozeß angelegt und bei Prozeßende 
(LOGOFF-Bearbeitung) automatisch gelöscht. Soll das Ergebnis der Übersetzung also wei- 
ter verwendet werden, so ist der Benutzer dafür verantwortlich, daß der Inhalt der *-Datei 
sichergestellt bzw. weiterverarbeitet wird. Die verschiedenen Möglichkeiten, die ihm dabei 
offen stehen, sind in Kapitel 3 und 4 aufgeführt. 


Werden die übersetzten Bindemoduln in der e Date nicht mehr benötigt, zum Beispiel, 
weil sie fehlerhaft sind, so empfiehlt es sich, die Date spätestens vor dem nächsten I 
Übersetzungslauf mit dem Kommando 


/JERASE * 


zu löschen. Dadurch wird vermieden, daß die fehlerhaften Bindemoduln den weiteren Verar- 
beitungsablauf stören. 


Der Benutzer kann die Ausgabe von Objektmoduln und Internadreßbuch mit bestimmten 
Schlüsselwörtern des PARAMETER-Kommandos und mit Operanden der COBRUN-Steuer- 
anweisung beeinflussen: 


COBRUN MODULE = 
bibliotheksname 


bewirkt Ausgabe eines Objektprogramms in eine Programmbiblio- 
thek (LMS). 

COBRUN SEMCHK legt fest, daß das Quellprogramm nur syntaktisch und semantisch 
überprüft und kein Bindemodul erzeugt wird. 

COBRUN SYNCHK legt fest, daß das Quellprogramm nur syntaktisch überprüft und kein 
Bindemodul erzeugt wird. 


/PARAM SYMDIC=YES, bewirkt die Erzeugung des Internadreßbuchs, die Symbole der 
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DEBUG=YES COBOL-Verben werden mit Hilfe der Folgenummern des Quellpro- 
gramms gebildet. 
/PARAM SYMDIC=YES, bewirkt die Erzeugung des Internadreßbuchs, die Symbole der 
DEBUG=NO COBOL-Verben werden mit Hilfe der vom Übersetzer erzeugten 
Nummern gebildet. 
COBRUN ACTKEY, betreffen die Eigenschaften der von COB1 erzeugten Objektmoduln. 
LINK, 
LOW#UP, 
NESTPF, 
PARAMB8, 
RANGECHECK, 
TCBENTRY, 
SYMTEST 


Eine ausführliche Beschreibung ist in den Abschnitten 2.4.2 und 2.4.3 zu finden. 


Die Struktur eines Objektprogramms geht aus der vom COB1-Übersetzer ausgegebenen 
Objektprogrammliste hervor und wird im Anhang 3 dargestellt. 
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© 2.3.4 Ausgabe von Listen 


Folgende Arten von Listen können vom COB1-Übersetzer erzeugt werden: 


— Steueranweisungsliste 

— Quellprogrammliste (mit Bibliotheksliste) 
— Objektprogrammliste 

— Adreßliste/Querverweisliste 

— Fehlermeldungsliste. 


Durch Angaben im PARAMETER-Kommando kann die Ausgabe einzelner Listen angefordert 
oder unterdrückt werden. 

Außerdem kann der Benutzer durch Angabe von COBRUN-Anweisungen das Listenbild be- 
einflussen. 


In diesem Abschnitt werden die möglichen Listen detailliert anhand eines Programmbei- 
spiels beschrieben. 


Auf jeder Seite der vom COB1-Übersetzer erzeugten Listen erscheint eine Überschriftzeile, 
die folgende Informationen enthält: 
® Name und Versionsnummer des Übersetzers 
Kennzeichnung des ANS-Standards') 
Ç © PROGRAM-ID-Name?) 
®© Listenart 
® Uhrzeit der Übersetzung 
®© Datum der Übersetzung 
© Seitennummer 


Nach jeder Überschriftzeile werden von COB1 zwei Leerzeilen erzeugt. 


Mit dem PARAMETER-Kommando oder der COBRUN-Steueranweisung steuert der Benut- 
zer die Ausgabe von Listen. Die folgende Übersicht zeigt die verschiedenen Möglichkeiten. 
Eine ausführliche Beschreibung der aufgeführten Schlüsselwörter des PARAM-Kommandos 
bzw. der COBRUN-Operanden befindet sich in den Abschnitten 2.4.2 und 2.4.3. 


1) COBOL74 entspricht ANS74 


2) erscheint nicht auf der zweiten Seite der Liste, da dort der PROGRAM-ID-Paragraph 
selbst steht 
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Tabelle: Ausgabe von Listen 


Listentitel 


COBRUN/PARAM 
LISTING 


SOURCE 
LISTING 


OBJECT 
PROGRAMM 
LISTING 


LOCATOR/MAP 
LISTING 


DIAGNOSTIC 
LISTING 


Beschreibung Schlüsselwörter des 
PARAM-Kommandos 


bewirken Ausgabe 
auf Drucker | in Datei 


Steueranweisungsliste 
2.3.4.1 


Quellprogrammliste LIST=YES SAVLST= 
Bibliotheksliste 


SOURCE 
oder 
SAVLST= 


2.3.4.2 


ALL 


Externadreßbuch OBJLST= SAVLST= 
Tabellen- und Speicher- YES OBJECT 
bereiche oder 
Objektprogrammliste SAVLST= 
Internadreßbuch ALL 
2.3.4.3 

Adreßliste der MAP=YES | SAVLST= 
DATA DIVISION LOCMAP 
und PROCEDURE oder 
DIVISION SAVLST= 
2.3.4.4 ALL 


Querverweisliste XREF=YES | SAVLST= 
2.3.4.4 LOCMAP 
oder 
SAVLST= 
ALL 
mit 
XREF=YES 
Fehlermeldungsliste DIAG=YES | ERRFIL= 
2.3.4.5 YES 


*) WRLST und LINEnn gelten für alle Listen. 


2-24 


Operanden der 
COBRUN- 
Anweisung 
steuern Ausgabe*) 


NOCOPY unterdrückt 
die Protokollierung der 
COPY-Elemente, siehe 
auch SUPPRESS-Zu- 
satz in COPY-Anwei- 
sung 

NODDLIST unterdrückt 
die Protokollierung der 
SUB-SCHEMA 
SECTION des 
Quellprogramms 


ERRLST unterdrückt die 
Ausgabe bei Fehlern 
mit SEVERITY 

CODE >2 


MAPSRT sortiert nach 
Namen 

MAPALL sortiert nach 
Namen und 
Folgenummer 
ERRLST unterdrückt 
die Ausgabe bei 
Fehlern mit 
SEVERITY CODE >2 


ERRPRn unterdrückt 
die Ausgabe von 
Fehlermeldungen für 
Fehler mit 

SEVERITY CODE < n 
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2.3.4.1 Steueranweisungsliste 


Hier protokolliert der COB1-Übersetzer 


die Umgebung des Übersetzungsprozesses, 
® die ausgewählten COBRUN/PARAM-Funktionen, 


© die durch Standardbelegung in Kraft befindlichen COBRUN/PARAM-Funktionen zum 
Zeitpunkt der Übersetzung und 


Gi Informationen für Wartungs- und Diagnosezwecke. 


® © © © © 


Ñ coBı vo2.3A COBOL-74 COMPILATION COBRUN/PARAM LISTING 15:31:09 86-05-27 PAGE 0001 
ENVIRONMENT 
PROCESSOR : 7.571 
OPERATING SYSTEM S BS2000 V8.0 


© COMPILER : c0B1 V02.3A COBOL-74 


(b) OPTIONS IN EFFECT 


DIAGTEXT=GERMAN 
DIAG=YES 
ERRLST=NO 
LIST=YES 
MAP=YES 
MODULE=PLAM.LIB 
OBJLST=YES 
SYMDIC=YES 
WRLST 

XREF=YES 


(© OPTIONS BY DEFAULT 


ACTKEY=TTTR 
ERRPRI 

LINE64 
QUOTE=" 
RANGECHECK=NO 
SAVLST=NO 
TRUNCATE=YES 
SYMTEST=MAP 


@ Rew = A 


© (FOR INTERNAL USE) 
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2.3.4.2 


2-26 


Quellprogrammliste 


Die von COB1 erzeugte Quellprogrammliste protokolliert 


— alle eingegebenen Quellprogrammsätze einschließlich der durch eine COPY-Anweisung 
hineinkopierten Quellprogrammteile. 
— alle zur Auflösung vorhandener COPY’s benötigten Bibliotheken. 


Durch den COBRUN-Operanden LINEnn kann der Seitenwechsel für die Übersetzungslisten 
beeinflußt werden. COB1 erzeugt standardmäßig nach 64 Zeilen einen Seitenwechsel. Der 
mit nn angegebene Wert legt die neue maximale Zeilenanzahl je Seite fest. 


Eine weitere Möglichkeit, das Listenbild zu beeinflussen, stellt eine Quellprogrammanwei- 
sung mit dem Zeichen "77 in Spalte 7 dar GG". Eine solche Anweisung kann in jeder beliebigen 
Zeile des Quellprogramms auftreten und bewirkt ebenfalls einen Seitenvorschub. 


Durch folgende COBRUN-Operanden kann die Protokollierung spezieller Quellcodeteile un- 
terdrückt werden. 


— COBRUN NOCOPY 
Die durch COPY-Anweisungen eingefügten Quellcodeteile werden nicht protokolliert. 
(Daneben kann in der einzelnen COPY-Anweisung durch den Zusatz SUPPRESS festge- 
legt werden, daß nur der Quellcode, der durch diese Anweisung eingefügt wird, nicht in 
die Quellprogrammliste aufgenommen wird (siehe Abschnitt 2.2.4).) 


— COBRUN NODDLIST 
Die SUB-SCHEMA SECTION wird nicht protokolliert (siehe Anhang 4). 


Zu Beginn jeder Seite einer Quellprogrammliste wird nach der Überschrift eine Zeile er- 
zeugt, die Spaltenmarkierungen (D enthält. Diese Markierungen entsprechen dem COBOL- 
Format und erleichtern es dem Benutzer, Mißachtung des von COBOL geforderten Spalten- 
formats zu erkennen. 


Jede Zeile einer Quellprogrammliste ist in die folgenden Bereiche unterteilt: 


Anzeigenfeld (Spalte 1) ® informiert den Benutzer über Fehler innerhalb der be- 
nutzereigenen Numerierung der Eingabesätze (Anzeige S) und über 
Verstöße gegen die maximale Zeilenlänge von 80 Zeichen (Anzeige 
T). Außerdem werden in ihm Sätze gekennzeichnet, die aus einer 
COPY-Bibliothek kopiert wurden (Anzeige C) oder die zur SUB- 
SCHEMA-SECTION gehören (Anzeige D). 


Folgenummernfeld (Spalte 2—6) ® enthält eine von COB1 vergebene, maximal 5-stel- 
lige Nummer, die zur Kennzeichnung des eingegebenen Quellpro- 
grammsatzes dient. Diese Nummer dient zur eindeutigen Identifizie- 
rung der Quellcodezeilen. Sie findet sich in allen von COB1 erzeug- 
ten Listen als Querverweisnummer wieder und wird zur Verknüpfung 
mit etwaigen Fehlermeldungen verwendet. Der maximale Wert be- 
trägt 32767. Überschreitet ein Quellprogramm diese Zahl, wird wie- 
der von 0 an nummeriert. 


Quellprogrammbereich (Spalte 11—90) enthält den vom Benutzer eingegebenen Satz. Dabei 
ist zu beachten, daß nur abdruckbare Zeichen dargestellt werden. 


Als letzte Seite der Quellprogrammliste wird eine Bibliotheksliste ausgegeben. Ihr sind die 
Quellen zu entnehmen, aus denen das in dieser Übersetzung bearbeitete COBOL-Programm 
entstand. In der ersten Zeile steht, daß Source über SYSDTA eingelesen wurde. Weitere, je 
COPY-Anweisung angelegte Zeilen enthalten folgende Informationen. 
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Folgenummer @ der COPY-Anweisung 

® Linkname aus der COPY-Anweisung 

© Dateiname, unter dem die Bibliothek im BS2000-Dateikatalog eingetragen ist 
®© Bibliothekstyp (LMS, PLAM) 

Elementname 

© Datum und 


@ Versions-Nummer, mit der das Bibliothekselement in der Bibliothek eingetragen ist. 
Datum und Versions-Nummer sind nicht immer vorhanden. 


® © © © © 


N coBı V02.3A COBOL-74 COMPILATION SOURCE LISTING 15:31:09 86-05-27 PAGE 0002 
Oy wy v 
1 IDENTIFICATION DIVISION. 00010000 
2 PROGRAM-ID. STUDY. 00020000 
3 AUTHOR. RUDOLF. 00030000 
H $ 00040000 
5 ENVIRONMENT DIVISION. 00050000 
6 CONFIGURATION SECTION. 00060000 
D OBJECT-COMPUTER. 00070000 
8 SEGMENT-LIMIT IS 20. 00080000 
© 9 INPUT-OUTPUT SECTION. 00090000 
10 FILE-CONTROL. 00100000 
11 SELECT EINGABE ASSIGN TO DA-590-I-SYSO10 00110000 
12 ORGANIZATION IS INDEXED 00120000 
13 ACCESS MODE IS DYNAMIC 00130000 
14 RECORD KEY IS E-NUMMER. 00140000 
15 $ 00150000 
16 SELECT BESTAND ASSIGN TO DA-590-I-SYSO10 00160000 
17 ORGANIZATION IS INDEXED 00170000 
18 ACCESS MODE IS DYNAMIC 00180000 
19 RECORD KEY IS B-NUMMER. 00190000 
20 $ 00200000 
21 SELECT AUSGABE ASSIGN TO UR-PRINTERDOD-S-SYSO20. 00210000 
SÉ. $ 00220000 
23 SELECT SORTARB ASSIGN TO DISC. 00230000 


® © © © © 
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© v wo v v 
24 © / 00240000 
25 DATA DIVISION. 00250000 
26 COPY FDIN. 00260000 


27 000010* 
28 000020 FILE SECTION. 
29 000030 FD EINGABE LABEL RECORD IS STANDARD. 


000040 01 
000050 
000060 
000070 
000080 
000090* 
000100 FD 
000110 01 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200* 
000210 FD 
000220 01 
000230 
000240 
000250* 
000260 SD 
000270 01 
000280 
000290 
000300 
000310 
000320 
000330 
000340* 


E-SATZ. 

02 E-NUMMER 
02 E-FIL1 
02 E-ANZAHL 
02 E-REST 


BESTAND LABEL RECORD IS STANDARD. 


B-SATZ. 

02 B-NUMMER 
02 B-FIL1 
02 B-ANZAHL 
02 B-FIL2 
02 B-CODE 
02 B-FIL3 
02 B-VER 

02 B-TIT 


AUSGABE LABEL RECORD IS STANDARD. 


AUSG. 
02 VORSCH 
02 A-SATZ 


PIE 
PIC 


Ra 
X (72). 


SORTARB LABEL RECORD IS STANDARD. 


SO-SATZ. 
02 FEIL? 
02 VER 
02 FIL2 
02 TIT 
02 FIL3 
02 BES 


000350 WORKING-STORAGE SECTION. 


000360 01 
000370 01 
000380* 


ANTWORT 


FELD VALUE ZERO 
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PIC 
PIC 
BEE 
PIC 
PIC 
PIC 


FIE 
PIC 


CHE 
X (26). 
X (2). 
X (26). 
X (5). 
9(8). 


A (3). 
9(5). 
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N coB1 vo2.3A È 


© 


Vv VV V 


nannananana Géi 


N coB1 V02.3A 


ae 


© 


65 
66 
67 
68 
69 
70 
71 
?2 
73 
74 
75 
76 
77 
78 
79 
80 
81 


® 


©) 
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/ 


000390* 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 


PROCEDURE DIVISION. 

EINLESEN SECTION 30. 

FRAGE. 
DISPLAY " SOLL DER BESTAND ERWEITERT WERDEN ?" 
UPON TERMINAL. 
COPY RDEINGAB. 


LESEN. 
MOVE SPACES TO ANTWORT. 
DISPLAY ” JA ODER NEIN EINGEBEN !" UPON TERMINAL. 
ACCEPT ANTWORT FROM TERMINAL. 
IF ANTWORT = "JA " GO TO BESTAND. 
IF ANTWORT = "NEI" GO TO SORTIEREN. 
DISPLAY " ANTWORT FEHLERHAFT, BITTE WIEDERHOLEN !" 
UPON TERMINAL. 
GO TO LESEN. 


© 


COBOL-74 COMPILATION OF STUDY SOURCE LISTING 

V O V 

/ 

BESTAND SECTION 50. 

AUFN. 

COPY RDERWEIT. 

000490* 
000500 BESTEINGABE. 
000510 OPEN I-O BESTAND, I-O EINGABE. 
000520 BEST1. 
000530 READ EINGABE NEXT AT END GO TO EBEST1. 
000540 MOVE E-SATZ TO B-SATZ. 
000550 DELETE EINGABE RECORD. 
000560 WRITE B-SATZ INVALID KEY GO TO BESTPLUS. 
000570 GO TO BEST. 
000580 BESTPLUS. 
000590 START BESTAND KEY IS EQUAL TO B-NUMMER. 
000600 READ BESTAND AT END GO TO 1. 
000610 1. 
000620 COMPUTE B-ANZAHL = B-ANZAHL + E-ANZAHL. 
000630 REWRITE B-SATZ INVALID KEY GO TO FEHLER. 
000640 GO TO BEST. 
000650 FEHLER. 
000660 DISPLAY "FEHLERHAFTER SCHLUESSEL " UPON TERMINAL. 
000670 GO TO BESTT. 
000680 EBEST1. 
000690 CLOSE EINGABE. 
000700 CLOSE BESTAND. 


© 


15:31:09 


© 


v 

00270000 
00280000 
00290000 
00300000 
00310000 
00320000 
00330000 


© 


15:31:09 


© 


v 

00340000 
00350000 
00360000 
00370000 


© © 


86-05-27 PAGE 0004 


© © 


86-05-27 PAGE 0005 
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v vwy v V 

108 OL 00380000 
109 SORTIEREN SECTION 80. 00390000 
110 BE. 00400000 
111 OPEN OUTPUT AUSGABE. 00410000 
112 SORTIER. 00420000 
113 SORT SORTARB ON ASCENDING VER > TIT 00430000 
114 INPUT PROCEDURE IS ISAM-SAM 00440000 
115 OUTPUT PROCEDURE IS SAM-SAM. 00450000 
116 CLOSE BESTAND. 00460000 
117 CLOSE AUSGABE. 00470000 
118 STOP RUN. 00480000 
119 ` 00490000 
120 ISAM-SAM SECTION 80. 00500000 
121 BEG. 00510000 
122 OPEN INPUT BESTAND. 00520000 
123 ISAM. 00530000 
124 READ BESTAND NEXT RECORD AT END GO TO ISEND. 00540000 
125 MOVE B-NUMMER TO BES. 00550000 
126 MOVE B-VER TO VER. 00560000 
127 MOVE B-TIT TO TIT. 00570000 
128 MOVE SPACES TO FIL1 FIL2 FIL3. 00580000 
129 RELEASE SO-SATZ. 00590000 
130 GO TO ISAM. 00600000 
131 ISEND. 00610000 
132 EXIT. 00620000 
133 ` 00630000 
134 SAM-SAM SECTION 80. 00640000 
135 SAM. 00650000 
136 RETURN SORTARB RECORD; AT END GO TO SIEND. 00660000 
137 MOVE SPACES TO VORSCH. 00670000 
138 MOVE SO-SATZ TO A-SATZ. 00680000 
139 WRITE AUSG. 00690000 
140 GO TO SAM. 00700000 
141 SIEND. 00710000 
142 EXIT. 00720000 


® 


© 


© © © 
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SOURCE LIBRARY- FILE-NAME (LIB-) ELEMENT-NAME USER VERSION 
SEQ-NO NAME TYP DATE 
SOURCE SYSDTA 
26 COBLIB PLAM.COPYLIB PLAM FDIN 86-03-04 ` 
Zi COBLIB PLAM. COPYLIB PLAM RDEINGAB 86-03-04 ` 
85 COBLIB PLAM.COPYLIB PLAM RDERWEIT 86-03-04 ` 
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2.3.4.3 


Übersetzer-Ausgabe / Listen 


Objektprogrammliste 


Die Objektprogrammliste wird nur auf Anforderung durch den Benutzer ausgegeben. Sie 
muß mit dem Kommando 


/PARAM OBJLST=YES 
vor dem Aufruf des COB1-Übersetzers angefordert werden. 


Das Listenbild der Objektprogrammliste kann vom Benutzer durch den COBRUN-Operanden 
LINExx beeinflußt werden. 


Die Objektprogrammliste enthält Informationen über die erzeugten Datenbereiche, Kontroll- 
blöcke und Maschinenbefehle. Außerdem werden die Namen der vom COB1-Übersetzer 
ausgewählten Ablaufzeitmoduln, die Namen der Einsprungpunkte und aufgerufenen Unter- 
programme aufgelistet. Die Anordnung der einzelnen Teile der Objektprogrammliste ent- 
spricht der Speicherstruktur, die das Maschinenprogramm belegt. 


Die Objektprogrammliste läßt sich in vier wesentliche Abschnitte gliedern: 


Abschnitt 1 der Liste informiert den Benutzer über die verwendeten externen Namen, die 
vom COB1-Übersetzer standardmäßig generierten Unterprogramme sowie über notwendige 
Tabellen und Speicherbereiche. Außerdem enthält dieser Abschnitt die Steuerblöcke, die 
zum Anschluß an Betriebssystemkomponenten wie DVS und UDS notwendig sind. 


Abschnitt 2 der Liste enthält eine symbolische Darstellung der Konstanten und Arbeitsbe- 
reiche aus dem Datenteil des Programms. Außerdem werden alle standardmäßig generier- 
ten Konstanten und die Literale des Prozedurteils aufgeführt. 


Abschnitt 3 enthält eine symbolische Darstellung aller vom COB1-Übersetzer erzeugten 
Maschinenbefehle. Zusätzlich werden Hinweise auf Paragraphen und Kapitelnamen, Quell- 
programmfolgenummern und die ursprüngliche Quellprogrammanweisung gegeben. 


Abschnitt 4 wird nur erstellt, wenn die PARAM-Funktion SYMDIC=YES wirkt (siehe Ab- 
schnitt 2.4.2). Er enthält dann das interne symbolische Adreßbuch (ISD). 
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C0OB1 v02.3A 


SYMBOL 


STUDY 
STUDY 


ITCOPOVH 
ITCMSINA 
ITCMIIN1 
ITCOSEGO 
ITCOENDO 
ITCMSOPO 
ITCMSWRO 
ITCMSCLO 
ITCMIOPO 
ITCMIRDO 
ITCMIWRO 
ITCMICLO 
ITCOSMGO 
ITCDACAO 
ITCODSAO 
ITCXINTO 


STUDY30 
STUDY5O 
STUDY8O 
STUDY30 
STUDY5O 
STUDY8O 


N c0B1 vo02.3A 


R 
LO 


COBOL-74 COMPILATION 


TYPE ID 


CU 


COBOL-74 COMPILATION 


EL 
CTN 


000000 


000 
000 
000 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 
000 
000 


002 
006 
00A 


00C 
00D 
010 
014 
018 
01c 
020 
024 
028 
02C 
030 
034 
038 


03c 
040 
042 
044 
048 
04A 


00004C 


000050 
000054 
000058 


00005A 


00005E 


000060 
000064 
000068 
00006C 
000070 
000074 
000078 
00007C 
000080 
000084 


0000 


0001 


0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 
000c 
000D 
000E 
0000F 
0010 
0011 


0012 
0013 
0014 
0015 
0016 
0017 


TYPE 
INST 


DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-X 
DC-X 


STUDY 


OBJECT PROGRAM LISTING 15:31:09 86-05-27 


EXTERNAL SYMBOL DICTIONARY 


REL. LENGTH LENGTH 


ADDR. 


DEC. 


REMARKS 


*kk4%* COMPILATION UNIT ktkAx%* 


“rk CONTROL SECTIONS ***** 


000000 001345 0004933 


OBJECT CODE 


05 FO 


98 2D FOOA 
47 FO FO3A 


07 00 


00 
001130 
00001050 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000050 
00000000 
00001280 


45 E0 COC8 


IF. BE 
04 EO 


58 FO B078 


05 EF 
07 FD 


48 FO E002 
58 FF B000 


07 FF 


47 FO CODC 


0001 


000000DC 
00000148 
0000005A 
000001538 
00000158 
00000004 
0000000C 
0000128E 
00000000 
00000000 


STUDY 


*kkk%* SUBROUTINE ENTRY POINTS *ttx%* 


Sëtze ENTRY-NAMES IN CALL-SOURCE-STATEMENTS OR SEGMENT-NAMES iss 


OBJECT PROGRAM LISTING 15:31:09 


OBJECT PROGRAM TABLES CODE 


REMARKS GRAPHICS 


**xx*x*x INITIALIZATION CODING (PART 1) ktak* 


**x*x*x* COBOL REGISTER INITIAL VALUES *#ı** 


ADDR CONST PROC. LITERALS 

ADDR CONST.ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
ADDR CONST ASSIGNED PERM REGR 
REGR C PERM ASSIGNED TO SR ITCOPOVH 
ADDR 1ST EXEC. SECTION/PARAGRAPH 


v>eovosauruw 


**x*x*x* INITIALIZATION CODING (PART 2) kA 


*x*x*x*x*x GO TO ROOT --- ROOT OR WITHIN SEGMENT *trx%* 


*kkk% ABNORMAL TERMINATION kkAx%* 
Siss VERSION OF LC - INTERFACE **ž** 


Siss SPECIAL A-CONSTANTS **ž*x** 
FCB TABLE ADDRESS 

PERFORM EXIT BUCKET BASE ADDR 
TERMD ADDRESS 

ENTER PARAMETER ADDRESS 

SEGMENT PARAM BASE ADDR 
SORT/MERGE TABLE ADDRESS 
POINTER COBOL REGISTERS 

PROGRAM ID BLOCK ADDR 


“rk BAC ADDR CONSTANTS Akkkk 


PAGE 0008 
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E N c0B1 v02.3A 


OBJECT PROGRAM TABLES CODE 


REL TYPE 


LOCTN INST OBJECT CODE REMARKS GRAPHICS 


000088 
00008C 
000090 
000094 


000098 
00009C 
000040 
0000A4 
0000A8 
0000AC 
000080 
0000B4 
000088 
00008C 
0000C0 
0000C4 
0000C8 
D000CC 
0000D0 


000004 
000008 


0000DC 
0000E0 
0000E4 
0000E3 
0000EC 
0000F0 
0000F4 
0000F8 


0000FC 
000100 
000104 
000108 
000109 
00010C 
00010D 
000110 
000111 
000114 
000115 
000118 
000119 
00011C 
00011D 
000120 
000121 
000124 


DC-X 
DC-A 
DC-A 
DC-A 


DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 


DC-A 
DC-A 


DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-A 
DC-X 
DC-X 


DC-A 
DC-A 
DC-A 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 
DC-X 


00000000 
00001050 
00000F20 
00000FB3 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000F 10 
00000ED8 


000001F0 
00000250 
000006A0 
00000700 
00000850 
00000800 
00000000 
00000000 


00001280 
00001280 
00001280 
81 


**x*x*x* OBJECT SUBR 


ITCOSEGO 
ITCOENDO 
ITCMSOPO 
ITCMSWRO 
ITCMSCLO 
ITCMIOPO 
ITCMIRDO 
ITCMIWRO 
ITCMICLO 
ITCOSMGO 
ITCOACAO 
ITCODSAO 
ITCXINTO 
ITCMSINM 
ITCMIIN1 


ADDR CONSTANTS zitt 


*kk#%* SORT/MERGE PARAMETERS ADDRESS CONSTANTS *ž*** 


k*x*xk* DTF ADDR CONSTANTS ***ž** 


**x*x*x* PROC. HEADER TAGS ***** 


Ñ coBı vo2.3A COBOL-74 COMPILATION STUDY OBJECT PROGRAM LISTING 15:31:09 86-05-27 PAGE 0011 


OBJECT PROGRAM TABLES CODE 


© REL TYPE 
LOCTN INST OBJECT CODE REMARKS 


000125 DC-X 000118 
000128 DC-X 83 
000129 DC-X 000004 
00012C DC-X 83 
00012D DC-X 000058 
000130 DC-X 83 
000131 DC-X 000064 
000134 DC-X 83 
000135 DC-X 0000C4 
000138 DC-X 83 
000139 DC-X D0000CA 
00013C DC-X 83 
00013D DC-X DDOOCA 
000140 DC-X 83 
000141 DC-X 000112 
000144 DC-X 0000 
000146 DS 


GRAPHICS 


**ż*x*x* PERFORM EXIT BUCKETS *ž**x 
000148 DC-C 0000000000000000 
000150 DC-C 0000000000000000 


Sté V-TYPE ADDRS FOR EACH NON-PERMANENT SEGMENT *ž*** 
000158 DC-A 00000000 
00015C DC-A 00000000 
000160 DC-A 00000000 


*k#%#%* TEMPORARY SLICE ADDRESSES ***** 
000164 DS 
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COBOL-74 COMPILATION 


REL 
LOCTN 


0001638 


000178 


000190 
000194 
000198 


0001EC 
0001F0 


000234 
000238 


000248 
000250 
000628 


000640 
000644 
000648 


00069C 
0006A0 


TYPE 
CODE 


DC-X 


DC-A 
DC-A 
DC-X 


DC-A 


DC-X 


DC-A 
DC-X 


OBJECT CODE 


00020074004C0050 
000000A000000008 
1005000A00000000 
00000F 18 

00000FB8 

0000000000000000 
0008000400000000 
0000000007C5C9D5 
C7C1C2C540404040 
4040404040404040 
4040404040404040 
4040400200000000 
0000000000004800 
114E3000000400C5 
C9D5C7C1C2C54000 
00000000 

00000178 

000100600000C900 
0000000000000000 
0000000001000000 
0000000000000000 
0000000400000000 
0000000000000048 
0000000800000048 
0000004880000000 
00000000 

00001054 

0000000400000000 
0000000000000000 


00020074004C0050 
000000A0000000D8 
10050D0A00000000 
00000F 18 

00000FB3 

0000000000000000 
0008000400000000 
0000000007C2C5E2 
E3C1D5C440404040 
4040404040404040 
4040404040404040 
4040400200000000 
0000000000004800 
114E3000000400C2 
C5E2E3C1D5C44000 
00000000 

00000628 

000100600000C900 
0000000000000000 


STUDY 


OBJECT PROGRAM LISTING 15:31:09 86-05-27 PAGE 0012 
DATA DIVISION CODE 
REMARKS GRAPHICS 
USE ERROR EXIT STACK 


Kr FILES“ EINGABE eee deedeedee dede dedede dedede dedede de de ke ke ke 
FCB-GENERATION-PARAMETERS 


COBOL INTERNAL FILE CONTROL BLOCK 


“kk%* ISAM-FCB zitt 


kkkkk re FILES BESTAND *žžkkkkkkkkkkkkkkkkkkkkk kkkk* 
FCB-GENERATION-PARAMETERS 


COBOL INTERNAL FILE CONTROL BLOCK 
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© DATA DIVISION CODE 


REL TYPE 
LOCTN CODE OBJECT CODE REMARKS GRAPHICS 


0000000002000000 
0000000000000000 
0000000400000000 
0000000000000043 
0000000800000048 
0000004880000000 
00000000 

0006E4 DC-A 000010A4 

0006E8 DC-X 0000000400000000 


0000000000000000 
0006F8 DS 
000700 DS *kk%* ISAM-FCB **ž** 
kkkkk ee FILE:= AUSGABE dedede dedede dede iddei a 
000AD8 DC-X 0002007400400051 FCB-GENERATION-PARAMETERS 
0000006000000008 
2203031400000000 


000AFO DC-A 00000F78 

000AF4 DC-A O00000FD8 

000AF8 DC-X 0000000000000000 
0000000000000000 
0000000007C1E4E2 
C7C1C2C540404040 
4040404040404040 
4040404040404040 
4040400200000000 
0000000000004900 
118A0401000400C 1 
E4E2C7C1C2C54000 


00000000 

000B4C DC-A 00000AD8 

000850 DC-X 000100800000E200 COBOL INTERNAL FILE CONTROL BLOCK 
0000000000000000 
0000000003000000 
0000000000000000 
0000000400000000 
0000000000000000 
0000000000000049 
0000000100000049 
00000049 

000894 DC-S 0040 

000896 DC-X 9000000000000000 
0000 

000BAO DC-A 00000F20 

000BA4 DC-X 0000000000000000 
0000000000040000 
0000000000000000 
0000004D00000000 
0000000000000000 
00000000 

0008D0 DS “ik SAM-FCB Kirk 

000EDO DC-X FFFFFFFFFFFFFFFF 


kk ehe CONTROL BLOCK FOR SORT/MERGE: NO. 01 AT SEQ. NO. 00113 +++ 
000ED8 DC-A 00000FB8 ' : 


CZ 
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DATA DIVISION CODE 


© REL TYPE 
LOCTN CODE OBJECT CODE REMARKS GRAPHICS 
000EDC DC-X 0000000000480034 
0000000000000000 
0000000000000000 
00010071C0000708 
0900000000000200 
0005001A01040021 
001A0104 
“kkk%* INDEPENDENT DATA AREA Zëss 
000F10 DS 
*kkk%* FIXED DATA AREA xt 
001050 DS 
0010F8 DC-C FOFOFOFOFO 00000 
0010FD DS 
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N c0B1 vo2.3A 


SOURCE 
SEQ.NO. 


REL 
LOCTN 


00066 001280 
001284 
001286 
00128A 


N coB1 vo2.3A 
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COBOL-74 COMPILATION 


REL 
LOCTN 


001130 


00115C 
001160 
001164 
001168 
00116C 
001170 
001174 
001178 
00117C 
001180 
001184 
00119C 
0011A0 
0011C0 
0011C4 
0011C8 
0011CC 
0011D0 
001200 


00127F 


COBOL-74 COMPILATION 


COBOL-74 COMPILATION 


00128E 


DS 


OBJECT CODE 


45E0COB2 


00B8 


58F0C10C 


OBJECT CODE 


STUDY 


OBJECT PROGRAM LISTING 


15:31:09 


PROCEDURE DIVISION CONSTANTS 


5800000047F00000 47F0000000000000 4841023A00040000 0000000000000000 


F000000000000000 
00000168 
000001638 
00000000 
00001000 
00000168 
00000168 
00000000 
000001638 
00000163 
00000168 
0000000000000000 
000001638 
0000000000000000 
00001280 
00000000 
00000000 
00000000 


40E2D6D3D340C4C5 
C5D5406F40D1C140 


E6D6DIE34LOCHCSHCER 
C5D5405AF1F2C6C5 


EFF 
ADDRA 


0000B2 
00010C 


45EF0008 


STUDY 


EFF 
ADDR2 


STUDY 


00000000 


0000000000000000 0000000000000000 


0000000000000000 00000000000C0000 
PERMANENT SLICE ADDRESSES 


D9O40OC2C5E2E3C1D5 C440C5D9E6C5C9E3 
D6C4C5DO4OD5C5C9 D540C5C9D5C7C5C2 
D3I3C5D9C8C1C6E3Z6B 40OC2C9E3E3C540E6 
C8D3IC5DOC8C1IC6E3Z C5D940E2C3IC8D3IE4 


PROCEDURE DIVISION CODE 


REMARKS 


GO TO 


OBJECT PROGRAM LISTING 


SOURCE 
SEQ. NO. 


REL 


OBJECT PROGRAM LISTING 


LOCTN 


0000000000000000 


C5D9E340E6C5D9C4 
C5D5405A40C1D5E3 
CIC5CAC5SDICEDEDZ 
C5E2E2C5D34000 


15:31:09 


TYPE 


13:31:09 


INST OBJECT CODE ADDRA 
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GRAPHICS 


SOLL DER BESTAND ERWEITERT WERD 
EN ? JA ODER NEIN EINGEBEN ! ANT 
WORT FEHLERHAFT, BITTE WIEDERHOL 
EN !12FEHLERHAFTER SCHLUESSEL 


86-05-27 PAGE 0016 


EFF EFF 


ADDR2 REMARKS 


86-05-27 PAGE 0017 


PROGRAM IDENTIFICATION, COMPILE TIME INFORMATION» LIBRARY MODULE AND PROGRAM STORAGE SUMMARY 


DC-C 


E2E3E4C4E8404040 
ESCSDIE2CID6D54O 
4040404040404040 
4040404040C24040 
4040404040404040 
60F2F74OC1E340F 1 


40FOFOF140C3D6D4 
F24BF3C140404060 
4040404040404040 
4040404040404040 
4040404040404040 
F57AF3F17AF0F986 


D7C9OD3C5C440C2E8 
D9C5E57B40C14040 
4040404040404040 
4040404040404040 
4040404040604040 
05271531093145 


40C3D6C2F 1404040 
4040404040404040 
4040404040404040 
4040404040404040 
D6D54OFBF66OFOFS5 


STUDY 001 COMPILED BY COB1 
VERSION 2.3A -REV# A 


B 
- ON 86-05 


-27 AT 15:31:09 F 200000. 


. COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 


N coB1 v02.3A 


STUDY30 


N coB1ı vo2.3A 


SOURCE REL 


SEQ.NO. 


aikkk 


00067 


La 22 2; 


00069 


kt 


00074 
00075 


00076 


00077 


00077 
00078 
00078 
00079 


00081 
00082 


LOCTN 


EINLESE 


000000 
000002 


FRAGE 3 


000004 
00000A 
00000E 
000012 
000014 


LESEN 3 


000018 
00001E 
000024 
000028 
00002C 
00002E 
000030 
000034 
000038 
00003C 
00003E 
000040 
000044 
00004A 
000050 
000054 
000053 
00005C 
00005E 
000064 
000068 
00006C 
00006E 
000074 
000078 
00007C 
00007E 
000080 
000084 
000088 
00008C 
00008E 
000092 


COBOL-74 COMPILATION 


EINGABE 
E-FIL1 
BESTAND 
B-FIL1 
B-CODE 
B-TIT 
VORSCH 
SO-SATZ 
FIL2 
BES 
TALLY 
SORT-MODE-SIZE 


COBOL-74 COMPILATION 


TYPE 
INST OBJECT CODE 


N 30 SECTION. *++** 
BCR 07F1 
DC-S 0088 

D PARAGRAPH. *+*** 
MVC D22330852000 
LA 41103085 
L 58F0B074 
BALR 05EF 
DC-X 04000024 

0 PARAGRAPH. *++** 
MVC  D20230A0C12E 
MVC  D217308520F4 
LA 41103085 
L 58F 08074 
LR 1800 
BALR 05EF 
DC-X 04000018 
LA 41103085 
L 58F 08070 
LR 1800 
BALR 05EF 
DC-X 10000003 
MVC  D20230A03085 
CLC D50230A020F5 
L 58002094 
BC _4770D05E 
BAL 45E0C0B2 
DC-S 00C0 
CLC D50230A020FD 
BC 4770D06E 
BAL 45E0C0B2 
DC-S 0008 
MVC  D2273085210C 
LA 41103085 
L 58F08074 
LR 1800 
BALR 05EF 
DC-X 04000028 
BC _47F00018 
BAL 45E0C0B2 
DC-S 00C0 
L 58F0C10C 
BAL 45EF0008 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 


EFF 
ADDRA 


001105 
001105 
0000C4 


0010F0 
001105 
001105 
0000C4 


001105 
0000C0 


0010F0 
0010F0 
0011C4 
00005E 
0000B2 


0010F0 
00006E 
000082 


001105 


001105 
0000C4 


000018 
000082 


00010C 


STUDY 


STUDY 


EFF 
ADDR2 


001200 


00012E 
001224 


001105 
001225 


001220 


00123C 


Übersetzer-Ausgabe / Listen 


OBJECT PROGRAM LISTING 


INTERNAL SYMBOL DICTIONARY 


E-SATZ 
E-ANZAHL 
B-SATZ 
B-ANZAHL 
B-FIL3 
AUSGABE 
A-SATZ 

FILT 

PIF 

ANTWORT 
SORT-FILE-SIZE 
SORT-RETURN 


OBJECT PROGRAM LISTING 


PROCEDURE DIVISION CODE 


SOURCE 
SEQ.NO. 


REL 


REMARKS LOCTN 


DISPLAY 


MOVE 
DISPLAY 


ACCEPT 


IF 


GO TO 
IF 
GO TO 


DISPLAY 


GO TO 
GO TO 


TYPE 
INST 


15:31:09 


15:31:09 


86-05-27 PAGE 0018 


E-NUMMER 
E-REST 
B-NUMMER 
B-FIL2 
B-VER 
AUSG 
SORTARB 
VER 

FIL3 
FELD 
SORT-CORE-SIZE 
$6660T 


86-05-27 PAGE 0019 


EFF EFF 
OBJECT CODE ADDR1 ADDR2 REMARKS 
2-37 


Übersetzer-Ausgabe / Listen 


N c0B1 v02.3A COBOL-74 COMPILATION STUDY 


OBJECT PROGRAM LISTING 


15:31:09  86-05-27 PAGE 0020 


PROGRAM IDENTIFICATION, COMPILE TIME INFORMATION, LIBRARY MODULE AND PROGRAM STORAGE SUMMARY 


000096 DC-C E2E3E4CLEBF3FOLO 4OFOFOF140C3DED4 D7ZC9D3ZC5C44OCZE8 40C3D6C2F1404040 STUDY30 001 COMPILED BY COB1 
E5C5D9E2C9D6D540 F24BF3C140404060 D9C5E57B40C14040 4040404040404040 VERSION 2.3A -REV# A 
4040404040404040 4040404040404040 4040404040404040 4040404040404040 
4040404040C24040 4040404040404040 4040404040404040 4040404040404040 B 
4040404040404040 4040404040404040 4040404040604040 D6D540F8F66OFOFS5 - ON 86-05 
60F2F74OC1E340F1 F57AF3F17AFO0OF986 05271531093145 


N coB1 v02.3A COBOL-74 COMPILATION STUDY 


2-38 


EINLESEN 

$74MOV 

$76ACC 

$78IF 

$81GOT 
STUDY SO 


OBJECT PROGRAM LISTING 


INTERNAL SYMBOL DICTIONARY 


$69DIS 
LESEN 
$77IF 
$7860T 
$31G0T2 


-?27 AT 15:31:09 Fi 55.080 


15:31:09 86-05-27 PAGE 0021 


FRAGE 

$75DIS 
$77GOT 
$79DIS 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 


Übersetzer-Ausgabe / Listen 


e N coB1 vo2.3A COBOL-74 COMPILATION STUDY OBJECT PROGRAM LISTING 15:31:09 86-05-27 PAGE 0022 
C PROCEDURE DIVISION CODE 
SOURCE REL TYPE EFF, EFF | SOURCE REL TYPE EFF EFF 
SEQ.NO. LOCTN INST OBJECT CODE ADDR1 ADDR2 REMARKS SEQ.NO. LOCTN INST OBJECT CODE ADDR1 ADDR2 REMARKS 


000080 DC-S 0007 


Siss BESTAND 50 SECTION. **x*ž*x* 00097 000082 LM 98018094 0000E4 READ 
000086 L 58F0B060 0000B0 
00083 000000 BCR 07F1 00008A BALR OS5EF 
000002 DC-S 00C0 - 00008C DC-S 0000 
00003E DC-S 8000 
*kk#% AUFN 50 PARAGRAPH. kkık% 00097 000090 CLC 050020202134 001150 001264 READ 
000096 L 58002098 0011C8 
00009A BC 4770DOA2 0000A2 
*x*x*x* BESTEINGABE 50 PARAGRAPH. *ž**x** 00097 00009E BC 47FODOA2 0000A2 GO TO 
00088 000004 LM 9801B094 0000E4 OPEN *kkx*x*x*x 1 50 PARAGRAPH. ***ž* 
000008 L 58F0B05C 0000AC 
00000C BALR D05EF 00099 0000A2 PACK F234C2E03061 0002E0 0010B1 COMPUTE 
00000E DC-S 0208 0000A8 OI 960FC2E3 0002E3 
00088 000010 LM 9801B08C 0000DC OPEN 0000AC NI 94FCC2E3 0002E3 
000014 L 58F0B05C 0000AC 0000B0 PACK F234C3603011 000360 001061 
000018 BALR O05EF 000086 OI 960FC363 000363 
00001A DC-S 0108 0000BA NI 9uFCC363 000363 
0000BE AP FA33C2E0C360 0002E0 000360 
**x*x*ž* BEST1 50 PARAGRAPH. **x*** 0000C4 ZAP F823C2B0C2E0 000280 0002E0 
0000CA OI 960FC2B2 0002B2 
00090 00001C LM 9801B08C 0000DC READ 0000CE UNPK F3423061C2B0O 001081 000280 
000020 L 58F0B060 000080 00100 000004 LM 9801B094 0000E4 REWRITE 
000024 BALR DO5EF 000008 L 58F0B064 0000B4 
000026 DC-S 0000 0000DC BALR DO05EF 
000028 DC-S 8000 0000DE DC-S 0010 
00090 00002A CL 050020202134 001150 001264 READ 0000E0 DC-S 0048 
000030 L 58002098 0011C8 0000E2 DC-S 8000 
000034 BC 4770D03C 00003C 00100 0000E4 CLC 050020202135 001150 001265 REWRITE 
00090 000033 BC 47F0D118 000118 GO TO 0000EA L 58002098 0011C8 
00091 00003C Mvc 024730583008 0010A8 001058 MOVE 0000EE BC 4770D0F6 0000F6 
00092 000042 LM 9801B038C 0000DC DELETE 00100 0000F2 BC 47FODOFA 0000FA GO TO 
000046 L 58F0B064 0000B4 00101 0000F6 BC 47FODOAIC 00001C GO TO 
00004A BALR O05EF 
00004C DC-S 4014 000014 *kk%%* FEHLER 50 PARAGRAPH. ***ž*x* 
00004E DC-S 0000 
000050 DC-S 0000 00103 O000FA mvc 021730852136 001105 001266 DISPLAY 
00093 000052 LM 98018094 0000E4 WRITE 000100 LA 41103085 001105 
000056 L 58F0B064 0000B4 000104 L 58F0B074 0000C4 
00005A BALR DO5EF 000108 LR 1800 
00005C DC-S 000C 00010A BALR O5EF 
00005E DC-S 0048 00010C DC-X 04000018 
000060 DC-S 8000 00104 000110 L 58002098 0011C3 GO TO 
00093 000062 CLC 050020202135 001150 001265 WRITE 000114 BC 47FODOAC 00001C 
000068 BC 47700070 000070 
00093 00006C BC 47F0D074 000074 GO TO *kk%%* EBEST1 50 PARAGRAPH. ***** 
00094 000070 BC 47FODOIC 00001C GO TO 
00106 000118 LM 9801B08C 0000DC CLOSE 
*kkk%* BESTPLUS 50 PARAGRAPH. ****x* 00011C L 58F0B068 000088 
000120 BALR 05EF 
00096 000074 LM 98018094 0000E4 START 000122 DC-S 1000 
000078 L 58F0B060 0000B0 00107 000124 LM 98018094 0000E4 CLOSE 
00007C BALR DOS5EF 000128 L 58F0B068 000088 
00007E DC-S 0008 00012C BALR O0SEF 
N c0B1 v02.3A COBOL-74 COMPILATION STUDY OBJECT PROGRAM LISTING 15:31:09 86-05-27 PAGE 0023 
© ; PROCEDURE DIVISION CODE 
SOURCE REL TYPE EFF EFF SOURCE REL TYPE EFF EFF 
SEQ.NO. LOCTN INST OBJECT CODE ADDR1i ADDR2 REMARKS SEQ.NO. LOCTN INST OBJECT CODE ADDRI ADDR2 REMARKS 


00012E DC-S 1000 


00108 000130 BAL 45E0COB2 000082 GO TO 
000134 DC-S 00D8 
000136 L 58F0C10C 00010C 


00013A BAL 45EF0008 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 2-39 


Übersetzer-Ausgabe / Listen 


N coBı vo2.3A 


N c0oB1 vo02.3A 


STUDY8O 


2-40 


COBOL-74 COMPILATION 


00013E 


COBOL-74 COMPILATION 


BESTAND 


PROGRAM IDENTIFICATION, 


DC-C 


BESTEINGABE 


$9I0GOT 
SYZWRI 
$96STA 
$97G0T 
$100REW 
$103DIS 
$106CL0 
$107G0T 


E2E3E4C4E8F5F040 
E5C5D9E2C9D6D540 
4040404040404040 
4040404040C24040 
4040404040404040 
60F2F740C1E340F1 


STUDY 


STUDY 


COMPILE TIME INFORMATION, 


4OFOFOF140C3D6D4 
F24BF 30140404060 
4040404040404040 
4040404040404040 
4040404040404040 
F57AF3F17AF0F986 


OBJECT PROGRAM LISTING 


D7C9OD3IC5C440C2E8 
D9OC5E57B40C14040 
4040404040404040 
4040404040404040 
4040404040604040 
05271531093145 


OBJECT PROGRAM LISTING 


15:31:09 


LIBRARY MODULE AND PROGRAM 


40C3D6C2F 1404040 
4040404040404040 
4040404040404040 
4040404040404040 
D6D54LOFSF66OFOFS5 


15:31:09 


INTERNAL SYMBOL DICTIONARY 


86-05-27 PAGE 0024 


STORAGE SUMMARY 


STUDY50 001 COMPILED BY COB1 


VERSION 2.3A 


-REV# A 


-27 AT 15:31:09 Fo. eneen 


86-05-27 PAGE 0025 


$880PE AUFN 
$90REA BEST? 
$91M0V $92DEL 
$93GOT SYLGOT 
BESTPLUS $97REA 
$99COM 1 
$100G0T $10160T 
FEHLER $10460T 
EBEST1 $107CL0 


ON 86-05 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 


N c0B1 v02.3A 


SOURCE REL 
SEQ.NO. LOCTN 
**x**x* SORTIERE 
00109 000000 
000002 
**x*x*x* BE 80 PA 
00111 000004 
000008 
00000C 
DO000E 
000010 
**x*x**x SORTIER 
00113 000012 
000016 
00001A 
00113 00001C 
00001E 
000020 
00113 000022 
000026 
00113 00002A 
00002C 
00002E 
00113 000030 
000034 
00116 000038 
00003C 
000040 
000042 
00117 000044 
000048 
00004C 
00004E 
00118 000050 
000054 
**x*ž*x* ISAM-SAM 
*ž*x*ž*x* BEG 80 P 
00122 000058 
00005C 
000060 
000062 
**x*ž*x* ISAM 80 
00124 000064 
000068 
00006C 
N coB1 vo2.3A 
SOURCE REL 
SEQ.NO. LOCTN 
00011C 


COBOL-74 COMPILATION 


TYPE 
INST OBJECT CODE 


N 80 SECTION. *ž*ž*ž* 
BCR 07F1 

DC-S 0008 
RAGRAPH. réit 

LM 9801B09C 

L 58F0B050 
BALR O05EF 

DC-S 0304 

DC-S 0003 


80 PARAGRAPH. kkıkıı 


LA 41000001 


L 58F0B06C 
BALR OS5EF 
BALR 05EC 
DC-S 00DC 
DC-S 0000 

k 58F0B06C 
BAL 45E0F004 
BALR O5EC 
DCS 00E8 
DC-S 0008 

L 58F0B06C 
BAL 45E0F010 
LM 98018094 
L 58F 08068 
BALR O5EF 
DC-S 1000 

LM 9801B09C 
L 58F0B058 
BALR OS5EF 
DC-S 0300 

L 58F0BO4C 
BAL 45E0F004 
80 SECTION. kkAxk 
ARAGRAPH. kkk+%* 
LM 98018094 
L 58F0B05C 
BALR O05EF 
DC-S 0201 
PARAGRAPH. ****x 
LM 9801B094 
L 58F0B060 
BALR O5EF 


EFF 
ADDR1 


0000EC 
0000A0O 


0000BC 


0000BC 


0000BC 


0000E4 
000088 


0000EC 
000048 


00009C 


0000E4 
0000AC 


0000E4 
000080 


COBOL-74 COMPILATION 


TYPE : 
INST OBJECT CODE 


BAL 45EF0008 


EFF 
ADDR1 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 


STUDY 


EFF 
ADDR2 


STUDY 


EFF’ 
ADDR2 


Übersetzer-Ausgabe / Listen 


OBJECT PROGRAM LISTING 


PROCEDURE DIVISION CODE 


REMARKS 


OPEN 


SORT 


SORT 


SORT 


SORT 


SORT 


CLOSE 


CLOSE 


STOP 


OPEN 


READ 


OBJECT PROGRAM LISTING 


PROCEDURE DIVISION CODE 


REMARKS 


15:31:09 


86-05-27 PAGE 0026 


SOURCE REL TYPE EFF EFF 
SEQ.NO. LOCTN INST OBJECT CODE ADDR1 ADDR2 REMARKS 
00006E DC-S 0000 
000070 DC-S 8000 
00124 000072 CLC 050020202134 001150 001264 READ 
000078 L 58D0209C 0011CC 
00007C BC 4770D084 000084 
00124 000080 BC 47FODOC4 0000C4 GO TO 
00125 000084 L 58408044 000094 MOVE 
000088 mvc D20740403058 000040 0010A8 
00G0O8E OI 96F04047 000047 
00126 000092 Mvc D2194005306C 000005 0010BC MOVE 
00127 000098 Mvc 021940213086 000021 001006 MOVE 
00128 00009E Mvc D2044000C12E 000000 00012E MOVE 
00128 O0000A4 MVC D201401FC12E 00001F 00012E MOVE 
00128 O000AA MVC D204403BC12E 00003B 00012E MOVE 
00129 0000B0 LA 41000048 RELEASE 
000084 STH 4000C33E 00038E 
0000883 L 58F0BO6C 0000BC 
0000BC BAL 45E0F008 
00130 0000C0 BC 47FODO64 000064 GO TO 
*kk*%* ISEND 80 PARAGRAPH. kkıı%* 
00132 0000C4 BAL 45E0C062 000062 EXIT 
0000C8 DC-S 0000 
“kkkk SAM-SAM 80 SECTION. ***** 
“kkkk SAM 80 PARAGRAPH. kkıkı%* 
00136 OO000CA L 58F0B06C 0000BC RETURN 
0000CE BAL 45E0OFOOC 
00136 000002 CLI 9500201F 00114F RETURN 
0000086 L 58D0209C D0011CC 
0000DA BC 4780D0E2 0000E2 
0000DE BC 47FODOE6 0000E6 
0000E2 BC 47FODOEA 0000EA 
00136 0000E6 BC 47F0D112 000112 GO TO 
00137 ODOO0OEA L 58408040 000090 MOVE 
0000EE MVC D2004000C12E 000000 00012E 
00138 0000F4 L 5850B044 000094 MOVE 
0000F8 MVC 024740015000 000001 000000 
00139 O000FE LM 9801B09C 0000EC WRITE 
000102 L 58F0B054 0000A4 
000106 BALR DOS5EF 
000108 DC-S 0404 
00010A DC-S 0049 
00010C DC-S 0000 
00140 00010E BC 47FODOCA 0000CA GO TO 
*kkk% SIEND 80 PARAGRAPH. **x*** 
00142 000112 BAL 45E0C062 000062 EXIT 
000116 DC-S 0008 
000118 L 58F0C10C 00010C 
15:31:09 86-05-27 PAGE 0027 
SOURCE REL TYPE EFF EFF 
SEQ.NO. LOCTN INST OBJECT CODE ADDR ADDR2 REMARKS 
2-41 


Übersetzer-Ausgabe / Listen 


COB1 v02.3A 


COB41 V02.3A 


COBOL-74 COMPILATION 


PROGRAM IDENTIFICATION; COMPILE TIME INFORMATION, 


000120 DC-C 


COBOL-74 COMPILATION 


SORTIEREN 
$113SOR 
$117CL0 
ISAM-SAM 
ISAM 
$126MOV 
$129REL 
ISEND 
SAM 
$138MOV 
$142EXI 


E2E3E4C4EBFBFO4LO 
E5SC5DIE2CIDED54O 
4040404040404040 
4040404040C24040 
4040404040404040 
60F2F740C1E340F1 


STUDY 


STUDY 


4OFOFOF140C3D6D4 
F24BF3C 140404060 
4040404040404040 
4040404040404040 
4040404040404040 
F57AF3F17AF0F986 


OBJECT PROGRAM LISTING 


D7C9D3C5C440C2E8 
D9C5E57B40C14040 
4040404040404040 
4040404040404040 
4040404040604040 
05271531093145 


OBJECT PROGRAM LISTING 


15:31:09 


4OC3ID6C2F1404040 
4040404040404040 
4040404040404040 
4040404040404040 
D6D540F8F660FOF5 


15:31:09 


INTERNAL SYMBOL DICTIONARY 


$1110PE 
SORTIER 
$118STO 
BEG 
$12460T 
$127MOV 
$130G0T 
$136RET 
$136GO0T 
$139WRI 
SIEND 


PROGRAM (LESS LIBRARY MODULES) OCCUPIES 00005438 BYTES. 


2-42 


86-05-27 PAGE 0028 


LIBRARY MODULE AND PROGRAM STORAGE SUMMARY 


STUDY80 001 COMPILED BY COB1 


VERSION 2.3A 


-REVH A 


-27 AT DECKER ae eg e 


86-05-27 PAGE 0029 


BE 

$116CL0 
$1220PE 
$124REA 
$125MOV 
$128MOV 
$132EXI 
SAM-SAM 
$137MOV 
$1406G0T 


ON 86-05 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 


Übersetzer-Ausgabe / Listen 


Leerseite durch den Nachtrag vom August 1986 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 2-43— 2-49 


'Übersetzer-Ausgabe / Listen 


2.3.4.4 


2-50 


Adreßliste 


Die von COB1 erzeugte Adreßliste gibt dem Anwender summarische Information über 
Adressen, Namen, zur Adressierung verwendete Register, Stufennummern und Datenfor- 
mate für die Datendefinitionen aus dem Datenteil; außerdem werden die Namen, Adressen 
und Ansprechart der Prozedurnamen aus dem Prozedurteil aufgeführt. Die Auflistung der In- 
formation erfolgt im Standardfall in aufsteigender Reihenfolge der Quellprogrammfolge- 
nummern. 


Die Ausgabe der Adreßliste erfolgt standardmäßig und muß nicht vom Benutzer angefordert 
werden. Durch Angabe des Kommandos 


/ PARAM XREF=YES 


vor dem Aufruf des COB1-Übersetzers wird die Ausgabe zusätzlicher Querverweisinforma- 
tion in der Adreßliste angestoßen. Zu jedem Daten- bzw. Prozedurnamen werden alle Be- 
zugnahmen auf andere Daten- bzw. Prozedurnamen aufgeführt. 


Durch folgende COBRUN-Operanden kann das Listenbild der Adreßliste vom Benutzer be- 
einflußt werden: 


COBRUN LINExx Dieser Operand legt die maximale Zeilenzahl (2ø < nn <99) pro 
Seite der Übersetzungsprotokolle fest. | 
COBRUN MAPSRT bewirkt, daß die Adreßliste nach Datennamen und Prozedur- 


namen alphanumerisch aufsteigend sortiert ausgegeben wird. 


Der erste Teil der Adreßliste enthält alle Datennamen aus der FILE SECTION, WORKING- 
STORAGE SECTION, LINKAGE SECTION, REPORT SECTION und der SUBSCHEMA 
SECTION @. Getrennt durch entsprechende Überschriften enthält dieser Teil der Adreß- 
liste für jedes Kapitel des Datenteils ähnlich aufgebaute Information. 


Wie aus dem folgenden Beispiel einer Adreßliste zu entnehmen ist, wird zunächst jedes 
Kapitel durch die entsprechende Überschriftszeile gekennzeichnet. 


Im Listenteil für die FILE SECTION folgt als nächstes eine Kurzbeschreibung des FD-Na- 
mens und die Adresse des zugehörigen Dateisteuerblocks @ . Die folgende Teilüberschrift 
ist für alle Kapitel identisch und teilt jede Zeile in folgende Bereiche ein: 


SOURCE SEQ.NO. ® gibt die Quellprogrammfolgenummer der Definition an 


REL ADDR ® gibt die relative Anfangsposition einer Datendefinition innerhalb einer 
01-Stufe an. 


I/O gibt die relative Anfangsadresse einer Datendefinition innerhalb des 
REL ADDR ® 
GRP zugewiesenen Speicherbereichs an. 


GEN REG ® stellt die Nummer des zur Adressierung verwendeten Registers dar. 
Dieses Feld bleibt leer, wenn zur Übersetzungszeit kein permanentes 
Register zugewiesen werden kann. 


LEVEL NO. © enthält die Stufennummer der Definition. 
DATA NAME © enthält den vom Benutzer vergebenen Datennamen. 


LENGTH IN BYTES ® gibt die Länge des Bereiches, dem der Datenname zugeordnet wurde, 
in dezimaler (DEC) und in sedezimaler (HEX) Darstellung an. 


OBJECT FORMAT ® gibt in symbolischer Form die Datenklasse an. 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 


Übersetzer-Ausgabe / Listen 


REFERENCED BY & Dieses Feld erscheint nur, wenn durch /PARAM XREF=YES Querver- 
© STATEMENTS weisinformation angefordert wurde. In aufsteigender Reihenfolge 
sind hier alle Quellprogrammfolgenummern der Anweisungen aufge- 

führt, die sich auf diese Datendefinition beziehen. 


Treten zu einem Datennamen mehr als 5 Querverweise auf, so wird 
eine Fortsetzungszeile gebildet. 


Der zweite Teil der Adreßliste enthält alle Prozedur- und Kapitelnamen aus dem Prozedur- 
teil. 


Nach der Überschriftszeile PROCEDURE DIVISION teilt eine Teilüberschriftszeile die nach- 
folgende Information in folgende Felder ein: 


SOURCE SEONO. & gibt die Quellprogrammfolgenummer der Definition an. 


REL ADDR © gibt die relative Adresse des Prozedurnamens innerhalb des zu- 
gewiesenen Speicherbereichs an. 


PROCEDURE NAME & enthält den vom Benutzer vergebenen Prozedur- bzw. Kapitel- 
namen. 


KINDS OF REFERENCE ® gibt die Art der Bezugnahme auf einen 
© Prozedur- bzw. Kapitelnamen an. Dabei sind folgende Angaben 
möglich: 
NOT REFERENCED — der Prozedurname wird von keiner Anwei- 
sung angesprochen. 


ENTRY POINT — der Prozedurname wird von einer GO TO-An- 
weisung angesprochen. 


ENTRY/EXIT POINT — der Prozedurname wird mit PERFORM an- 
gesprochen. 


USE REFERENCE — der Prozedurname ist Name einer Prozedur- 
vereinbarung. 


REFERENCED BY SORT — der Prozedurname ist der Name einer 
Ein- oder Ausgabeprozedur für eine SORT-Anweisung. 


REFERENCED BY Dieses Feld erscheint nur, wenn durch /PARAM XREF=YES 

STATEMENT Ei Querverweisinformation angefordert wurde. In aufsteigender 
Reihenfolge werden hier die Quellprogrammfolgenummern aller 
Anweisungen aufgeführt, die den Prozedurnamen ansprechen. 


Treten für einen Prozedurnamen mehr als 6 Querverweise auf, so 


© wird eine Fortsetzungszeile gebildet. 
® © © © © © 
N coB1 V02.3A COBOL-74 COMPILATION STUDY LOCATOR MAP LISTING 15:31:09 86-05-27 PAGE 0030 
DATA DIVISION 
FILE SECTION 
FILE NAME EINGABE Q 
FILE SERIAL NO. 01 


ADDR LHE DTF EXP. (INPUT) 000250 


@ Gë © @ 6) md & & 
SOURCE REL REL GEN LEVEL IN BYTES REFERENCED 
SEQ.NO. ADDR ADDR REG NO. DATA NAME DEC HEX OBJECT FORMAT BY STATEMENTS 
00029 FD EINGABE 00014 00088 00090 00092 00106 
00030 001058 03 01 E-SATZ 00000072 000048 00091 
00031 001058 000000 03 02 E-NUMMER 00000008 000008 ZONED DECIMAL 00014 
00032 001060 000008 03 02 Eef tt? 00000001 000001 EBCDIC-CHAR 
00033 001061 000009 03 02 E-ANZAHL 00000005 000005 ZONED DECIMAL 00099 
© 00034 001066 00000E 03 02 E-REST 00000058 00003A EBCDIC-CHAR 
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® 


N c0oB1 vo2.3A 


COBOL-74 COMPILATION 


© 


STUDY 


FILE NAME 
FILE SERIAL NO. 


ADDR LHE DTF EXP. 


® 


® ® D o ei 


SOURCE REL ver. GEN LEVEL 

SEQ.NO. ADDR ADDR REG NO. DATA NAME 
00036 FD BESTAND 
00037 0010A8 03 01 B-SATZ 
00038 0010A8 000000 03 02 B-NUMMER 
00039 0010B0 000008 03 02 B-FIL1 
00040 0010B1 000009 03 02 B-ANZAHL 
00041 001086 00000E 03 02 BAFIL? 
00042 0010B7 00000F 03 02 B-CODE 
00043 001088 000013 03 02 B-FIL3 
00044 0010B8C 000014 03 02 B-VER 
00045 001006 00002E 03 02 B-TIT 


® 


N c0B1 v02.3A 


COBOL-74 COMPILATION 


© 


STUDY 


FILE NAME 
FILE SERIAL NO. 


ADDR LHE DTF EXP. 


® 


© ® D o e 


SOURCE REL AL GEN LEVEL 
SEQ.NO. ADDR ADDR REG NO. DATA NAME 
00047 FD AUSGABE 
00048 000000 01 AUSG 
00049 000000 02 VORSCH 
00050 000001 02 A-SATZ 
2-52 


(INPUT) 


© 


LOCATOR MAP LISTING 


DATA DIVISION 
FILE SECTION 


BESTAND 
02 
000700 


© 


LENGTH 
IN BYTE 
DEC 


00000072 
00000008 
00000001 
00000005 
00000001 
00000004 
00000001 
00000026 
00000026 


© 


LOCATOR MAP LISTING 


DATA DIVISION 
FILE SECTION 


AUSGABE 
03 


(OUTPUT) 000850 


LENGTH 
\ IN BYTE 
DEC 


00000073 


S 
HEX 


000048 
000008 
000001 
000005 
000001 
000004 
000001 
00001A 
00001A 


© 


S 
HEX 


000049 


© 


13:31:09 


© 


OBJECT FORMAT 


ZONED DECIMAL 
EBCDIC-CHAR 
ZONED DECIMAL 
EBCDIC-CHAR 
EBCDIC-CHAR 
EBCDIC-CHAR 
EBCDIC-CHAR 


EBCDIC-CHAR 


© 


15:31:09 


2) 


OBJECT FORMAT 


00000001 000001 EBCDIC-CHAR 


00000072 000048 EBCDIC-CHAR 


© © 


86-05-27 PAGE 0031 


& 


REFERENCED 
BY STATEMENTS 


00019 
00122 


00083 
00124 


00096 00097 00107 00116 


00091 00093 00100 


00019 00096 00125 


00099 00099 


00126 
00127 


© © 


86-05-27 PAGE 0032 


Gi 


REFERENCED 
BY STATEMENTS 


00111 00117 
00139 
00137 
00138 
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® an © © © © 
€ 


DATA DIVISION 
FILE SECTION 


SORT-FILE NAME SORTARB 
FILE SERIAL NO. 04 
© © Ces e ie Dr. 20 
SOURCE REL REL GEN LEVEL IN BYTES REFERENCED 
SEQ.NO. ADDR ADDR REG NO. DATA NAME DEC HEX OBJECT FORMAT BY STATEMENTS 
00052 SD SORTARB 00113 00136 
00053 000000 01 SO-SATZ 00000072 000048 00129 00138 
00054 000000 02 FILM 00000005 000005 EBCDIC-CHAR 00128 
00055 000005 02 VER 00000026 00001A EBCDIC-CHAR 00113 00126 
00056 00001F 02 FIL2 00000002 000002 EBCDIC-CHAR 00128 
00057 000021 02 TIT 00000026 00001A EBCDIC-CHAR 00113 00127 
00058 00003B 02 FIL3 00000005 000005 EBCDIC-CHAR 00128 
00059 000040 02 BES 00000008 000008 ZONED DECIMAL 00125 


® © © © © © 
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DATA DIVISION @ 
WORKING-STORAGE SECTION 


® 
Gë Gë GRP @ Gë GU LENGTH en & e 


SOURCE REL REL GEN LEVEL IN BYTES REFERENCED 
SEQ.NO. ADDR ADDR REG NO. DATA NAME DEC HEX OBJECT FORMAT BY STATEMENTS 
00062 0010F0 03 01 ANTWORT 00000003 000003 EBCDIC-CHAR 00074 00076 00077 00078 
00063 0010F8 03 01 FELD 00000005 000005 ZONED DECIMAL 

00001 00023E #7 TODAYS-DATE 00000011 00000B EBCDIC-CHAR 

00002 00023E 77 CURRENT-DATE 00000011 00000B EBCDIC-CHAR 

00003 001198 TALLY 00000004 000004 BINARY 

00004 00024A 77 RETURN-CODE 00000002 000002 BINARY 

00005 001188 SORT-FILE-SIZE 00000004 000004 BINARY 

00006 00118C SORT-CORE-SIZE 00000004 000004 BINARY 

00007 001190 SORT-MODE-SIZE 00000004 000004 BINARY 

00008 001194 SORT-RETURN 00000004 000004 BINARY 
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® 


N coB1 vo2.3A 


2) 


SOURCE 
SEQ.NO. 


00067 
00068 
00073 
00083 
00084 
00037 
00089 
00095 
00098 
00102 
00105 
00109 
00110 
00112 
00120 


00121 
00123 
00131 
00134 


00135 
00141 


© 


REL 
ADDR 


000004 
000004 
000018 
000004 
000004 
000004 
00001C 
000074 
0000A2 
0000FA 
000118 
000004 
000004 
000012 
000058 


000058 
000064 
0000C4 
0000CA 


0000CA 
000112 


© 


COBOL-74 COMPILATION STUDY 


2) 


PROCEDURE NAME 
EINLESEN SECTION 
FRAGE 
LESEN 
BESTAND SECTION 

AUFN 

BESTEINGABE 

BEST? 

BESTPLUS 

1 

FEHLER 

EBEST1 
SORTIEREN SECTION 

BE 

SORTIER 


ISAM-SAM SECTION 


BEG 
ISAM 
ISEND 


SAM-SAM SECTION 


SAM 


SIEND 


© 


LOCATOR MAP LISTING 


PROCEDURE DIVISION 
KINDS ee 
ENTRY POINT 
NOT REFERENCED 
ENTRY POINT 
ENTRY POINT 
NOT REFERENCED 
NOT REFERENCED 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
NOT REFERENCED 
NOT REFERENCED 
ENTRY POINT 
EXIT POINT 
REFERENCED BY SORT 
NOT REFERENCED 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
EXIT POINT 
REFERENCED BY SORT 
ENTRY POINT 


ENTRY POINT 


© © © 


15:31:09 86-05-27 PAGE 0035 


® 


REFERENCED 
BY STATEMENTS 


00066 


00081 
00077 00082 


00094 00101 00104 
00093 

00097 

00100 

00090 

00078 00108 


00113 00113 


00130 
00124 
00113 00113 


00140 
00136 
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Fehlermeldungsliste 


Die von COB1 erzeugte Fehlermeldungsliste gibt dem Benutzer Aufschluß über alle während 
der Übersetzung von COB1 erkannten Syntax- und Semantikfehler. 


Die Fehlermeldungsliste wird standardmäßig ausgegeben und muß nicht vom Benutzer 
angefordert werden. 


Einige COBRUN-Operanden steuern die Fehlermeldungen des COB1 -Übersetzers: 


DIAGTEXT ermöglicht die Wahl zwischen englischen und deutschen Fehlermeldungstexten. 

_ J ENGLISH 

{GERMAN 

ERDICT veranlaßt die Ausgabe einer Liste sämtlicher Fehlermeldungen des COB1-Überset- 
zers. 

ERRPRn dient zur wahlweisen Unterdrückung von Fehlermeldungen für Fehler mit SEVERITY 


CODE kleiner als „n“. 


LINEnn legt für die Ausgabe aller Listen die maximale Zeilenzahl „nn“ pro Seite fest 
(Standard: nn = 64). 


SEQERR veranlaßt, daß eine Fehlermeldung ausgegeben wird, sobald Quellprogrammsätze 
nicht in aufsteigender Reihenfolge vorgefunden werden. 


WRLST bewirkt die Ausgabe der Fehlerliste in die Systemdatei SYSLST. 


Standardmäßig gibt COB1 die Fehlermeldungen auf den Drucker aus. Der Benutzer kann mit 
Hilfe des PARAMETER-Kommandos aber erreichen, daß sie in einer Datei, der Fehlerdatei, 
abgespeichert werden. Das hat in Dialogprozessen während der Testphase den Vorteil, daß 
der Benutzer nicht auf das Ausdrucken der Fehlerliste bis nach Prozeßende warten muß. 


/PARAM DIAG =YES Die Ausgabe erfolgt auf den Drucker. 


/PARAM ERRFIL = YES Die Ausgabe erfolgt in eine SAM-Datei namens 
“ERRFIL.COB1.progname“ oder in eine Datei mit dem 
LINK-Namen „ERRLINK“. 


Die Fehlerdatei hat, bis auf fehlende Drucksteuerzeichen, den gleichen Inhalt wie die Fehler- 
liste. Die Datei läßt sich mit EDT oder EDOR auf die Datenstation ausgeben. 


Eine ausführliche Beschreibung der Schlüsselwörter des PARAMETER-Kommandos bzw. 
der COBRUN-Operanden befindet sich in Abschnitt 2.4.2 bzw. 2.4.3. 
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Nach den Überschriftszeilen unterteilt eine Teilüberschriftszeile die nachfolgenden Fehler- 


meldungszeilen in folgende Bereiche: 


MSG INDEX gibt die Fehlermeldungskennzeichnung an. 

SOURCE SEO.NO. gibt die Quellprogrammfolgenummer der Quellprogrammzeile 
an, in der der Fehler auftrat. 

SEVERITY CODE gibt die Fehlerklasse an (siehe Tabelle). 

ERROR MESSAGES enthält den erklärenden Text und gegebenenfalls die vom COB1- 


Übersetzer durchgeführte Korrektur oder einen von COB1 ange- 
nommenen Standardwert. Hier sei darauf hingewiesen, daß die 


wahlweise 
cher sind. 


ausgegebenen deutschen Texte meistens ausführli- 


Die Ausgabe der Fehlermeldungen erfolgt in aufsteigender Reihenfolge ihrer Fehlermel- 


dungskennzeichnung. 


Am Ende der Fehlermeldungsliste wird eine Abschlußinformation über Gesamtanzahl aller 
aufgetretenen Fehler sowie Gesamtanzahl der Fehler in den verschiedenen Fehlerklassen 


ausgedruckt. 
® © © G © © 
N COB1 V02.3A COBOL-74 COMPILATION STUDY DIAGNOSTIC LISTING 15:31:09 86-05-27 PAGE 0036 
MSG SOURCE SEVERITY 
INDEX SEQ.NO CODE ERROR MESSAGES 
BB220 00092 0 FUER EINE "REWRITE"- BZW. "DELETE"-ANWEISUNG WURDE WEDER DIE ANGABE "INVALID KEY" GEMACHT, NOCH 


IST FUER DIESE DATEI EINE "USE" PROZEDUR VORHANDEN. 


TOTAL 00001 STATEMENTS IN THIS DIAGNOSTIC LISTING. 


00001 IN SEVERITY CODE 0 


Tabelle: Fehlerklassen und ihre Bedeutung 


Fehlerklasse Beschreibung 

I Hinweismeldung 

0 Warnungsmeldung 

1 Fehlermeldung 

2 Schwerwiegender 
Fehler 

3 Abbruchfehler 


Der Übersetzer hat Steueranweisungen oder COBOL- 
Sprachelemente erkannt, auf die der Anwender zwar auf- 
merksam gemacht werden soll, die jedoch nicht die Aus- 
gabe einer Warnungs- oder Fehlermeldung rechtfertigen. 
Hinweise werden insbesondere dann gemeldet, wenn 

— das Quellprogramm Sprachmittel enthält oder 

— COBRUN-Anweisungen eingegeben wurden, 

die von künftigen COB1-Versionen nicht mehr unterstützt 
werden. 


Ein möglicher Fehler wurde im Quellprogramm gemacht; 
trotz dieses Fehlers ist der Programmablauf möglich. 


Der Übersetzer hat einen Fehler entdeckt. Normalerweise 
macht der Übersetzer eine Korrekturannahme; ein Ablauf 
des Programms zu Testzwecken ist möglich. 


Normalerweise ist vom Übersetzer keine Korrekturannahme 
gemacht; die fehlerhafte Anweisung wird nicht generiert. 


Es ist ein so schwerwiegender Fehler aufgetreten, daß der 


Übersetzer nicht in der Lage ist, die Übersetzung fortzuset- 
zen. 
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Übersetzungsablauf 


Ablauf 


Übersicht über Steuerungsmöglichkeiten 


Abschnitt 2.2 zeigt, daß der Benutzer zwischen verschiedenen Eingabeformen in den COB1- 
Übersetzer wählen kann. Abschnitt 2.3 stellt die Steuerungsmöglichkeiten bezüglich der 
Ausgabe des Übersetzers dar. Zusätzlich zur Ein- und Ausgabe kann der Benutzer den Über- 
setzungsablauf und damit indirekt die Form des erzeugten Objektmoduls steuern, und zwar 
mit dem PARAMETER-Kommando und der COBRUN-Anweisung. 


Folgende Schlüsselwörter des PARAMETER-Kommandos steuern den Übersetzungslauf 
(siehe auch Abschnitt 2.4.2): 


CODE=3 | wirkt wie der COBRUN-Operand QUOTE (s.u.) 


Folgende Operanden der COBRUN-Anweisung steuern den Übersetzungslauf (siehe auch 
Abschnitt 2.4.3): 


QUOTE1 veranlaßt, daß der COB1-Übersetzer einen Apostroph (') im Quellprogramm als 
Anführungszeichen (”) interpretiert. 


SEMCHK legt fest, daß das Quellprogramm nur syntaktisch und semantisch überprüft und 
kein Bindemodul erzeugt wird. 


SYNCHK bewirkt, daß das Quellprogramm ausschließlich auf syntaktische Fehler geprüft 
und kein Bindemodul erzeugt wird. 


Die verschiedenen Möglichkeiten zur Steuerung des COB1-Übersetzers sind in folgender 
Übersicht zusammengestellt: 


Steuerung... BS2000-Kommandos COBRUN-Operanden**) Übersetzungs- 
[2] anweisung [1] 


... der Eingabe /SYSFILE SYSDTA = 
in COB1 /PARAM CODE =2*) 
/FILE... . LINK = SRCLIB SRCELEM 
/FILE . . . ,LINK = COBLIB COPY 
LINK = COBLIB1 —4 
. . . des Über- /PARAM ERRFIL, DIAGTEXT, ERDICT, 
setzungslaufes ERRLST, LIST, MAP, ERRLST, ERRPRn, 
von COB1 OBJLST, SAVLST, XREF LINEnn, MAPALL, 
MAPSRT, NOCOPY, 
NODDLIST, SEQERR, 
SEMCHK, SYNCHK, 
WRLST 
... der Modul- /PARAM CODE =3, ACTKEY, LINK, 
erzeugung DEBUG, DIAG, SYMDIC LOW # UP, MODULE, 
durch COB1 NESTPF, PARAM8, 


QUOTE1, RANGECHECK, 
SSEQ # GEN, SYMTEST, 
TCBENTRY, TRUNCATE 


*) siehe Abschnitt 2.4.2 
**) siehe Abschnitt 2.4.3 
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Vor dem Aufruf des COB1-Übersetzers ist folgendes nötig: 


— Eingabe des PARAM-Kommandos mit den gewünschten Operanden 
— ggf. Eingabe der COBRUN-Anweisung(en) in die Eingabedatei 

(vor das Quellprogramm) 
— ggf. Einfügen von Übersetzungsanweisungen in das Quellprogramm. 


Nach diesen Vorbereitungen wird der COB1-Übersetzer schließlich mit dem EXECUTE-Kom- 
mando geladen und gestartet: 


/EXEC[UTE][$]COB1 


Vom Standpunkt des Betriebssystems ist der COB1-Übersetzer also ein ablauffähiges Pro- 
gramm (Lademodul) in einer Datei namens $TSOS.COB1, abgekürzt $COBI1. 


Das Beendigungsverhalten des COB1 wird davon bestimmt 


— welcher Klasse die im Quellprogramm erkannten Fehler angehören und 
— ob der Compiler selbst fehlerfrei abläuft. 


Dieses Verhalten ist insbesondere dann von Bedeutung, wenn COB1 in einer Prozedur auf- 
gerufen oder von einer Jobvariable überwacht wird. 


Die folgende Tabelle gibt einen Überblick über die möglichen Fälle und deren Auswirkung 
auf den weiteren Ablauf einer Prozedur und den Inhalt der Rückkehrcode-Anzeige (siehe 
[22]) der Jobvariable: 


Beendigung Rückkehrcode-An-| Verhalten in Prozeduren 
zeige in Jobvaria- 
blen 
keine Fehler normal keine Verzweigung 
Fehlerklasse I normal 
Fehlerklasse 0 normal 
Fehlerklasse 1 normal 


Fehlerklasse 2 normal Verzweigung zum nächsten 

STEP-, ABEND-, ABORT-, 
Fehlerklasse 3 normal ENDP- oder LOGOFF-Kom- 
"| Compilerfehler abnormal j mando 
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2.4.2 PARAMETER-Kommando 


Format: 
/PARAM Schlüsselwort-1 =Wert-1[,Schlüsselwort-2=\Wert-2]... 


Die zulässigen Schlüsselwörter, Werte und deren Bedeutung sind der folgenden Tabelle zu 
entnehmen. Standardwerte sind unterstrichen. 


Schlüsselwort Bedeutung 

CODE Ohne Bedeutung; alle von COB1 erzeugten Bindemoduln sind im 
EBCDI-CODE codiert. 
Dem COB1-Übersetzer wird mitgeteilt, daß COBRUN-Anweisungen 
vorhanden sind. 
Diese Angabe ist gleichbedeutend mit: COBRUN QUOTEI. 

DEBUG YES Dieser Operand hat nur Wirkung, falls SYMDIC=YES angegeben 


wurde. In diesem Fall wird durch die Angabe YES festgelegt, daß die 
COBOL-Verbsymbole mit Hilfe der Folgenummern des Quellpro- 
gramms (Spalte 1—6) gebildet werden sollen. 

NO Es werden, falls SYMDIC=YES angegeben wurde, die COBOL- 
Verbsymbole mit Hilfe der von COB1 erzeugten Folgenummern ge- 


© bildet. 


DIAG') Nach der Übersetzung soll eine Liste der von COB1 erkannten Fehler 
ausgegeben werden. 
Es wird keine Fehlerliste ausgegeben. 


< 
m 
Li 


zZ 
O 


ERRFIL YES Die von COB1 erkannten Fehler werden in eine Fehlerdatei (SAM- 
Datei) mit dem Dateinamen »ERRFIL.COB1.programmname« ge- 
schrieben. Diese Fehlerdatei kann nach Beendigung der Übersetzung 
mit EDT am Bildschirm gelesen werden. Für »programmname« wird 
der Name aus dem PROGRAM-ID-Paragraphen des Quellprogramms 
verwendet. Vergibt der Benutzer keinen Programmnamen, so ver- 
wendet der Übersetzer die Prozeßfolgenummer; der Dateiname ist 
dann »ERRFIL.COB1.tsn«. Wurde bei der Übersetzung ein FILE-Kom- 
mando mit dem LINK-Namen ERRLINK gegeben, werden die Fehler- 
meldungen in die angegebene Benutzerdatei geschrieben. 

NO Es wird keine Fehlerdatei erzeugt. 


ERRLST YES Auch bei schwerwiegenden Übersetzungsfehlern (SEVERITY CODE 
> 2) sollen Objektprogramm-, Adreß- und Querverweislisten ausge- 
geben werden. 

NO Die oben angegebenen Listen werden im Falle eines Fehlers mit 
SEVERITY CODE 2 2 nicht erzeugt (siehe auch COBRUN ERRLST). 


© In Prozeduren wird bei schwerwiegenden Übersetzungsfehlern auf 
das nächste STEP-Kommando bzw. auf ENDP verzweigt. 


Der Übersetzer erzeugt eine Liste des Quellprogramms. 
Es wird keine Quellprogrammliste erzeugt. 


LIST') 


EE 
on 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 2-59 


PARAMETER-Kommando 


2-60 


Schlüsselwort 


MAP') 


OBJLST') 


SAVLST?) 


SYMDIC 


XREF') 


Wert 


SOURCE 


OBJECT 


LOCMAP 


ALL 


Bedeutung 


Der COB1-Übersetzer erzeugt Adreßlisten, sortiert alphabetisch 
nach Datennamen oder aufsteigend nach Quellprogrammfolgenum- 
mern, gesteuert durch die COBRUN-Operanden MAPALL, MAPSRT. 


Es wird keine Adreßliste erzeugt. 


COB1 erzeugt eine Liste des generierten Objektprogramms. 
Es wird keine Objektprogrammliste erstellt. 


Eine Sicherstellung der von COB1 erzeugten Listen in einer katalogi- 
sierten Datei ist nicht erwünscht. 

Die Quellprogrammliste wird in eine SAM-Datei geschrieben, die 
der Benutzer nach der Übersetzung ausdrucken lassen kann. Der 
Name dieser katalogisierten SAM-Datei lautet „SRCLST.COB1.pro- 
grammname« bzw. SRCLST.COB1.tsn. (Linkname ist SRCLINK.) 
Eine Liste des erzeugten Objektprogramms wird in eine katalogi- 
sierte SAM-Datei mit Namen »OBJLST.COB1.programmname« ge- 
schrieben bzw. OBJLST.COB1.tsn. (Linkname ist OBJLINK.) 

Für Adreß- und Querverweislisten wird eine katalogisierte SAM- 
Datei mit Namen »LOCLST.COB1.programmname: erstellt. 
(Linkname ist LOCLINK). 

Alle oben angegebenen Listen werden unter den bei SOURCE, 
OBJECT, LOCMAP angegebenen Namen in katalogisierte SAM- 
Dateien geschrieben. (Linknamen wie oben). 

Anmerkung: Operand LIST und SAVLST sind voneinander unab- 
hängig, d.h. LIST=YES muß nicht angegeben werden, damit 
SAVLST=SOURCE wirksam wird. 


Es wird ein Internadreßbuch erstellt, das alle Datennamen der DATA 
DIVISION, sowie Paragraphen- und Kapitelnamen und die verwen- 
deten Verben in der PROCEDURE DIVISION enthält. Entsprechende 
ISD-Sätze werden in den erzeugten Bindemodul aufgenommen. 
Damit wird die symbolische Überwachung mittels der Testhilfe IDA 
ermöglicht [7]. 

Hinweis: PARAM SYMDIC=YES ist unwirksam bei Übersetzerläu- 
fen, für die zugleich COBRUN SYMTEST=ALL angegeben 
wird. In diesem Fall werden keine ISD-Informationen er- 
zeugt. 


Es werden keine ISD-Sätze, kein Internadreßbuch erstellt. 


Die Adreßliste enthält Querverweise. Die Angabe XREF schaltet au- 
tomatisch die Funktion MAP ein, sofern nicht explizit MAP=NO an- 
gegeben ist. 

Die Adreßliste, falls durch MAP angefordert, enthält keine Querver- 
weise. 


') Alle durch diese Operanden erzeugten Listen werden von COB1 in temporäre Dateien geschrieben, die durch den System-Makro 
PRINT ausgegeben werden. Die Ausgabe erfolgt automatisch, angestoßen durch COB1 in einem von dem Benutzerprozeß un- 


abhängigen Prozeß. 


2) Eine SAVLST-Datei kann vom Benutzer durch das Systemkommando /PRINT ausgedruckt werden. Daessich um eine katalogisierte 
Datei handelt, kann dieses Kommando jederzeit gegeben und wiederholt werden. 
Beispiel: Ausdrucken einer Quellprogrammliste: 
/PRINT SRCLST.COB1.AXEL, SPACE=E 
AXEL ist der Name des Quellprogramms, wie er im PROGRAM-ID.-Paragraphen des Quellprogramms angegeben wurde. 
Katalogisierte Listen sind SAM-Dateien mit Sätzen variabler Länge in Blöcken von 2048 Bytes. 
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COBOL- 
Quell- 


programm Sprachübersetzer: 


© COB1 


EAM-Ausgabedeatei 
des COBOL- 
LA Sprachübersetzers *) 


A Zur Ausgabe dieser EAM-Datei wird am Ende des Übersetzungslaufs 
ein eigener Ausspulprozeß angestoßen. Nach dem Drucken wird die 
Datei gelöscht. 


“) Zur Möglichkeit der Ausgabe in eine LMS-Programmbibliothek siehe 
© COBRUN-Operand MODULE = bibliotheksname 


Bild 2-6 
Schlüssel und Werte des PARAMETER-Kommandos 
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PARAMETER-Kommando 


Bindemoduldatei *) **) 


SYMDIC = YES 
(evtl. DEBUG = YES) 
Internadreßbuch (ISD) 


ERRFIL = YES 
Fehlerdatei 
ERRFIL.COB1.progname 


SAVLST = SOURCE 
Quellprogramm- 

liste in der Datei 
SRCLST.COB1.progname 


SAVLST = OBJECT 
Objektprogramm- 

liste in der Datei 
OBJLST.COB1.progname 


SAVLST = ALL 
> evtl. 
ERRLST = YES 


SAVLST = LOCMAP 
Adreß- und Querverweis- 
liste in der Datei 
LOCLST.COB1.progname 


LIST = YES 
Quellprogrammliste 


OBJLST = YES 
Objektprogrammliste 


MAP = YES evtl. 
Adreßliste ERRLST = YES 


XREF = YES 
Querverweisliste 


DIAG = YES 
Fehlerliste 


COBRUN-Anweisung 


2.4.3 COBRUN-Anweisung 


Format:') 


COBRUN 
er | operand-1[,operand-2]... 


Die Eingabe von einer oder mehreren COBRUN-Anweisungen wird durch die END-Anwei- 
sung abgeschlossen. 


Mit einer Zusatzangabe in der END-Anweisung kann SYSDTA umgewiesen werden. Bei An- 
gabe von: 


'— dateiname liest der COB1-Übersetzer das zu übersetzende COBOL-Programm aus der 
angegebenen BS2000-Datei 


— bibliotheksname (elementname) liest COB1 den Quellcode aus einer LMS-Quellcode-Bi- 
bliothek unter elementname. 


Wurde SYSDTA über die END-Anweisung umgewiesen, setzt COB1 zum Abschluß der 
Übersetzung SYSDTA auf (SYSCMD) zurück. 


dateiname 

END 

bibIname(elementname) 

COBRUN- Beschreibung 

Operand 

Koran D R] (Betrifft nur die direkte Dateiorganisation.) 

— [TTTT] | Bei ACTKEY=TTTT gibt der Benutzer im Spurbezeichner des Adreßschlüssels 
die Nummer der „region“ relativ zum Dateianfang an. Die erste region der Datei 
hat die Nummer 1... usw. 

Bei ACTKEY=TTTR bleibt das niederwertigste Byte des Spurbezeichners frei 
(siehe [1]), so daß die region-Nummern als Vielfaches von 256 angegeben wer- 
den, beginnend mit 512. 
DIAGTEXT= Die Fehlermeldungstexte werden in deutscher oder englischer Sprache ausge- 
[ENGLISH geben. Der Operand kann in Verbindung mit ERDICT angewendet werden. 
GERMAN 

ERDICT Dieser Operand bewirkt, daß alle COB1-Fehlermeldungen aufgelistet werden, 
ohne daß eine Übersetzung durchgeführt wird. 

ERRLST Bei Auftreten einer Fehlermeldung mit SEVERITY CODE 22 wird die Ausgabe 
der Objektprogramm-, Adreß- und Querverweis-Protokolle unterdrückt und nur 
die Fehlerliste ausgegeben. Außerdem wird die Übersetzung als fehlerhaft been- 
det gekennzeichnet. In Prozeduren wird auf das nächste STEP-Kommando bzw. 
auf ENDP verzweigt. 

ERRPRn unterdrückt Fehlermeldungen für Fehler mit einem SEVERITY CODE kleiner 


als n. 
Für n können folgende Werte angegeben werden: 


n=I Alle Fehler der Fehlerklassen I, 0, 1, 2, 3 werden protokolliert. 
n=0 Alle Fehler der Fehlerklassen 0, 1, 2, 3 werden protokolliert. 
n=1 Alle Fehler der Fehlerklassen 1, 2, 3 werden protokolliert. 
n=2 Alle Fehler der Fehlerklassen 2, 3 werden protokolliert. 

n=3 Alle Fehler der Fehlerklassen 3 werden protokolliert. 


Fehlt dieser Operand, wird n = I angenommen. 


Hinweis: Unterdrückte Fehlermeldungen werden mitgezählt. In der Fehlerliste 
wird die Meldung > PRINTING SUPPRESSED < ausgegeben. 


') Die Möglichkeit, anstelle von COBRUN das Schlüsselwort COMOPT zu verwenden, wird an anderen 
Stellen dieses Handbuches nicht mehr explizit erwähnt. 
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COBRUN- 
Operand 


LINEnn 


LINK 


LOW # UP 


MAPALL 


MAPSRT 


MODULE = 


bibliotheks- 


name 


NESTPF 


NOCOPY 


NODDLIST 


PARAM8 


QUOTE1 


COBRUN-Anweisung 


Beschreibung 


Dieser Operand legt die maximale Zeilenzahl (2ø < nn <99) pro Seite der Über- 
setzungsprotokolle fest. Ein Seitenwechsel wird ausgeführt, wenn diese Zeilen- 
zahl erreicht ist (Standard: nn = 64). 


Der LINK-Name für Dateien wird aus dem Herstellerwort der ASSIGN-Klausel 
(siehe diese in [1]) statt aus dem Dateinamen der SELECT-Klausel entnommen. 


Bei Ausführung einer ACCEPT-Anweisung werden eingegebene Kleinbuchsta- 
ben in Großbuchstaben umgesetzt. 


Dieser Operand veranlaßt die Ausgabe einer doppelten Adreßliste, die einmal 
aufsteigend nach Quellprogrammfolgenummern und einmal alphabetisch nach 
Datennamen sortiert ist. (Siehe auch MAPSRT.) 


Mit diesem Operanden wird die Ausgabe eines nach (vom Benutzer vergebe- 
nen) Datennamen aufsteigend sortierten Adreßbuches veranlaßt. Die ausgege- 
bene Liste besteht aus einer Liste für die Datennamen, gefolgt von einer Liste 
der Kapitel- und Paragraphennamen. Bei COBRUN MAPSRT wird COBRUN 
MAPALL ignoriert. 


Steuert die Ausgabe eines Objektmoduls in eine LMS-Programmbibliothek. 
bibliotheksname = Dateiname einer PLAM-Bibliothek. 


Der Übersetzer generiert Befehlsfolgen für PERFORM-Anweisungen, die auf ei- 
nen gemeinsamen EXIT führen. (Funktionserweiterung gegenüber dem Stan- 
dard ANS74.) 


Achtung: Der Operand erzeugt eine umfangreichere Programmsteuerung. 
Dies kann zu Einbußen bei Laufzeit und zu längeren Objekten führen. 
Beispiel: 


PERFORM ATHRUC. ©) 
A. | 
PERFORM B THRU C. © 
B. 
C. 
EXIT. < Dieser EXIT ist für D und @ gemeinsam. 


Im Quellprogramm vorhandene COPY-Bibliothekselemente werden nicht in der 
Quellprogrammliste abgedruckt. Die Anwendung empfiehlt sich bei häufig vor- 
kommenden COPY-Elementen, um Papier zu sparen. 


Unterdrückt die Protokollierung der SUB-SCHEMA SECTION des Quellpro- 
gramms in der Quellprogrammliste. 


Fehlt dieser Operand, wird die Section aufgelistet und jede Zeile mit einem D 
gekennzeichnet. 


Nach einer MOVE-Anweisung wird auf numerischen Feldern aus Leerzeichen 
die gültige Ziffer Null erzeugt. 


Im Quellprogramm auftretende >'< (Apostroph) werden als >”< (Anfüh- 
rungszeichen) interpretiert. Fehlt dieser Operand, werden die Anführungszei- 
chen als Literalbegrenzer verwendet. Außerdem wird die Darstellung der figura- 
tiven Konstanten QUOTE gesteuert. 
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2-64 


COBRUN- 
Operand 


RANGECHECK = 
ov"? 


TERM 
NO 


SEMCHK 


SEQERR 


SRCELEM = 
elementname 


SSEQ#GEN 
ALL 
SYMTEST = 4 MAP 
NO 


Beschreibung 


Dieser Operand bewirkt, daß das Ablaufzeitsystem die Einhaltung von Tabellen- 
grenzen überprüft (sowohl für Normalindizierung als auch für Spezialindizie- 
rung). 


Geprüft wird, ob: 

— Indexwerte größer als Null sind 

— Indexwerte nicht größer als die Anzahl von Elementen in den entsprechen- 
den Dimensionen sind 

— Indexwerte nicht größer als zugehörige Werte in DEPENDING ON-Feldern 
sind 

— Werte in DEPENDING ON-Feldern innerhalb der Grenzen liegen, die in ent- 
sprechenden OCCURS-Klauseln definiert sind. 


Das Ablaufzeitsystem reagiert im Fehlerfall wie folgt: 
Meldung 9101 bzw. 9102 
RANGECHECK = CONTINUE, Programmfortsetzung 
= TERM ‚ Programmabbruch 


legt fest, daß das Quellprogramm nur syntaktisch und semantisch überprüft und 
kein Bindemodul erzeugt wird. 


Werden Quellprogrammsätze in nicht aufsteigender Reihenfolge gefunden, so 
wird das entsprechende Satzpaar in der Fehlerliste durch eine Fehlermeldung 
der Fehlerklasse Ø (SEVERITY CODEØ) gekennzeichnet. Fehlt dieser Parameter, 
werden die Sätze mit nicht aufsteigender Satznummer nur im Protokoll des 
Quellprogramms (SOURCE LISTING) durch den Buchstaben >S: neben der Satz- 
nummer gekennzeichnet. 


Unter elementname ist das zu übersetzende COBOL-Quellcodeprogramm in ei- 
ner LMS-Bibliothek abgespeichert. Diese Bibliothek muß mit FILE-Kommando 
über den LINK-Namen SRCLIB zugewiesen sein. 


Die Meldungen 90xx und 91xx werden ergänzt mit der von COB1 vergebenen 
Quellprogramm-Zeilennummer der Anweisung, bei deren Ausführung die Mel- 
dung ausgegeben wurde. 


legt die Art der Informationen fest, die der Übersetzer für die Dialogtesthilfe AID 

bereitstellt. Diese Informationen werden dem Bindemodul übergeben. Sie las- 

sen sich in zwei Teile gliedern, 

— eine „List for Symbol Debugging“ (LSD), in der die innerhalb des Moduls de- 
finierten symbolischen Namen verzeichnet sind und 

— ein „External Symbol Dictionary“ (ESD), das die Externbezüge des Moduls 
registriert. 

(Zum Format dieser Informationen siehe [23].) 


ALL: Dieser Wert muß gesetzt werden, wenn das Programm mit der Dialog- 
testhilfe AID symbolisch überwacht werden soll. 

Der Übersetzer erzeugt dann sowohl LSD- als auch ESD-Informationen, 

so daß beim Testen mit AID symbolische Namen aus dem Quellpro- 

gramm (wie in [25] beschrieben) verwendet werden können. 

Hinweise: 1. Durch COBRUN SYMTEST = ALL wird ein evtl. bestehen- 
des PARAM SYMDIC = YES außer Kraft gesetzt, d.h. 
ISD-Informationen werden nicht erzeugt. 

2. Bei segmentierten Programmen ist die Erzeugung von 
LSD-Informationen (und damit symbolisches Testen mit 
AID) nur dann möglich, wenn der Bindemodul mit 
COBRUN MODULE =bibliotheksname in eine PLAM-Bi- 
bliothek ausgegeben wird. 


MAP: Der Übersetzer erzeugt lediglich ESD-Testhilfeinformationen vom Typ 
Übersetzungseinheit. Dabei wird dem Objektmodul (bei segmentierten 
Programmen: allen Moduln) ein symbolischer Name zugeordnet, der 
aus den ersten 8 Zeichen des Namens im PROGRAM-ID-Paragraphen 
besteht. Beim Testen mit AID kann dieser Name zur Qualifikation des 
Quellprogrammes verwendet werden. 

Eine darüber hinausgehende Besrkmmüberwashung auf symbolischer 
Ebene mit AID ist nicht möglich. 
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© COBRUN- Beschreibung 
Operand 


NO: Dieser Wert ist nur zu setzen, wenn das Binder-/Ladersystem Objekt- 
moduln mit ESD-Einträgen vom Typ Übersetzungseinheit nicht verar- 
beiten kann. Der Übersetzer gibt dann weder LSD- noch ESD-Testhilfe- 
informationen an den Bindemodul weiter. 

Symbolisches Testen mit AID ist nicht möglich. 


Standardwert ist SYMTEST = MAP. 


SYNCHK Das COBOL-Quellprogramm wird nicht übersetzt, sondern nur auf syntaktische 
Fehler überprüft. Das Protokoll des Quellprogramms und die Fehlerliste kann 
man ausgeben lassen. 


TCBENTRY=name Name der Verbindungstabelle zu UTM (vgl. [10], [14]), die COB1 erzeugt. Diese 
Tabelle enthält Zeiger zu internen, vom Übersetzer erzeugten Arbeitsbereichen, 
die bei Wiederdurchlauf eines UTM-Teilprogramms von UTM erneut initialisiert 
werden müssen. „name“ kennzeichnet den Anfang dieser Zeiger-Tabellen. 


YES] | legt fest, wie sich die in der PICTURE Klausel angegebene Dezimalstellenanzahl 
TRUNCATE= TALL}| bei Datenfeldern auswirkt, für die USAGE IS COMPUTATIONAL vereinbart 
NO wurde: 


YES: Bei der Übertragung eines numerischen Literals in ein binäres Datenfeld 

© wird nur die Anzahl Dezimalstellen berücksichtigt, die in der PICTURE- 

Klausel angegeben wurde. 

Überschüssige Dezimalziffern werden ggf. abgeschnitten. 

Beispiel: 

77 EMPF PIC S999 USAGE IS COMPUTATIONAL. 

MOVE 1234 TO EMPF. 

Inhalt von EMPF: 234 


ALL: Über die bei TRUNCATE = YES angegebenen Fälle hinaus wird auch bei 
allen MOVE-Anweisungen in binäre Felder nur die Anzahl Dezimalstellen 
berücksichtigt, die in der PICTURE-Klausel vereinbart wurde. 
Überschüssige Dezimalziffern werden ggf. abgeschnitten. 


NO: Bei der Übertragung eines numerischen Literals in ein binäres Datenfeld 
wird die Anzahl Binärstellen berücksichtigt, die für das Empfangsfeld 
über die PICTURE-Klausel reserviert wurde. 

Es werden nur dann Binärstellen des Literals abgeschnitten, wenn ihre 
Anzahl die tatsächliche Länge des Empfangsfeldes übersteigt. 
Beispiele: 
1. 77 EMPF PIC S999 USAGE IS COMPUTATIONAL. 
MOVE 1234 TO EMPF. 
Inhalt von EMPF: 1234 
2. 77 EMPF PIC S999 USAGE IS COMPUTATIONAL VALUE IS 65536. 
Inhalt von EMPF: 0 


© Standardwert ist TRUNCATE = YES. 


WARLST Die erzeugten Listen werden in die Systemdatei SYSLST ausgegeben (andern- 
falls direkt in einen eigenen SPOOL-Prozeß;). 
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© 3 Sicherstellung von Bindemoduln 


Der COB1-Übersetzer erzeugt aus dem Quellprogramm ein Objektprogramm, das zwar be- 
reits in Maschinensprache umgesetzt ist, zum Ablauf aber erst noch gebunden werden muß 
(siehe Kapitel 4). Die erzeugten Bindemoduln legt der Übersetzer entweder in der temporä- 
ren EAM-Bindemoduldatei 23" des laufenden Prozesses oder (bei Angabe von COBRUN 
MODULE =bibliotheksname) in eine Programmbibliothek ab. 


Neben dem Bibliotheksprogramm LMS und den Dienstprogrammen LMR (siehe unten) und 
TSOSLNK (siehe Kapitel 4) beziehen sich einige Kommandos des BS2000 [2] auf die X-Da- 
tei (ERASE zz EXEC *, LOAD *, PRINT %, PUNCH zl. 


Wenn in einem Prozeß ein Bindemodul, der sich in der EAM-Bindemoduldatei „X“ befindet, 
nicht gebunden, aber über Prozeßende hinaus verfügbar bleiben, d.h. nicht bei LOGOFF mit 
der Datei „X“ gelöscht werden soll, so bieten sich dem Benutzer drei Möglichkeiten zur 
Sicherstellung des Bindemoduls: 


© — Ausgabe auf Floppy Disk mit Hilfe des PUNCH-Kommandos, 
— Ausgabe in eine katalogisierte Bindemodulbibliothek (PAM-Datei) mit Hilfe des Dienst- 
programms LMR [3] oder des Bibliotheksprogramms LMS [21], 
— Ausgabe in eine Programmbibliothek (Typ R) mit Hilfe des Bibliotheksprogramms LMS. 


Beispiel 25: Verwendung der Routine LMR 


a) In einem Dialogprozeß sind mehrere Übersetzungen gelaufen, bei denen der COB1- 
Übersetzer die Ergebnisse (unter anderem den Bindemodul EINXEINS) in der temporä- 
ren Bindemoduldatei 25 speicherte. 


/ EXEC LMR | © 
% P500 LOADING | 
PROGRAM LMR/25.U STARTED 

k MODL IR MUD,NEWLIB 

á ADD OBJNOVSEINXEINS,SOURCE=x* 


© d 


A ueu0 LMR NORMAL END 


OOO 


© LMR, die Routine zur Verwaltung von Bindemodulbibliotheken, wird geladen und gestar- 
tet. Die steuernden Anweisungen erwartet sie aus der Systemdatei SYSDTA, das ist hier 
die Datenstation.. 


© Als Name der Bibliothek, die bearbeitet werden soll, wird MOD vereinbart. 


® Aus der Bindemoduldatei * des Prozesses wird der zuerst erzeugte Modul EINXEINS in 
die aktuelle Bibliothek MOD übernommen. 


GO Die Eingabe der LMR-Anweisungen wird beendet, ihre Ausführung beginnt. Anschlie- 
Bend meldet das System mit U6ØØ das Ende des LMR-Laufes. 


An die Stelle der temporären Datei * kann der Name einer beliebigen anderen Objekt- 
modulbibliothek treten. 
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Verwendung des Bibliotheksprogramms LMS 


Auch Bindemoduln können mit LMS abgespeichert werden und zwar in einer Bindemodul- 
bibliothek oder einer Programmbibliothek. LMS bezieht Moduln aus 


— der temporären EAM-Datei * 
— einer anderen Modulbibliothek 


Beispiel 26: Aufnahme eines ROHBAU aus der Datei in eine vorhandene LMS- 
Bindemodulbibliothek. 


@ Die Bibliothek LMS.OML wird mit dem Linknamen LIB012 verknüpft. 

@ Aufruf von LMS 

® LMS-Meldungen sollen nur nach SYSOUT, nicht aber nach SYSLST gehen. 

@ Die Bibliothek wird als Ausgabebibliothek erklärt. NEWLIB ist nötig, falls sie neu einge- 
richtet wird. Durch OML wird festgelegt, daß es sich um eine Bindemodulbibliothek 
handeln soll. 

© Der zuletzt eingetragene Modul der 3 -Datei wird als Element ELEMOD aufgenommen. 

© Ende von LMS 
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Binden 


Erzeugung ablauffähiger Programme 


Einführung 


Nach dem Übersetzen des Quellprogramms durch den COB1-Übersetzer steht das Objekt- 
programm dem Benutzer in der EAM-Bindemoduldatei "25" zur Verfügung, und zwar bis 
zum Prozeßende (LOGOFF-Bearbeitung), falls er die zz Date nicht vorher mit dem ERASE- 
Kommando löscht. 


Der Benutzer kann zwei Ziele verfolgen: 


— Bindemoduln sicherstellen, dieser Fall wird in Kapitel 3 behandelt, 
— Bindemoduln binden, d.h. ablauffähig machen. 
Damit befaßt sich dieses Kapitel. 


Der Bindevorgang hat die Aufgabe, aus Bindemoduln ablauffähige Programme zu erzeugen: 
Ein COBOL-Bindemodul kann in allen Fällen erst dann programmgemäß arbeiten, wenn er 
während des Ablaufs durch weitere Objektmoduln ergänzt wird. Der COB1-Übersetzer mar- 
kiert dazu den Bindemodul an den Stellen durch externe Adreßkonstanten, an denen beim 
Programmablauf weitere Objektmoduln benötigt werden. Solche externen Adreßbeziehun- 
gen können aus mehreren Gründen aufgebaut werden: 


— Der Benutzer arbeitet mit Unterprogrammen. Er legt durch eine ENTRY-Anweisung [1] 
oder dadurch, daß er ein COBOL-Programm als Unterprogramm verwendet, Einsprung- 
punkte fest, die in einem anderen Programm als externe Adressen auftreten. Handelt es 
sich bei dem aufrufenden Programm um ein COBOL-Programm, so wird der externe 
Adreßverweis durch eine CALL-Anweisung [1] veranlaßt (siehe Bild 4-1). 


— Segmentiert der Benutzer ein Quellprogramm [1], so erzeugt der COB1-Übersetzer ein 
Wurzelsegment und ein oder mehrere Überlagerungssegmente. Das Wurzelsegment er- 
hält entsprechende Adreßkonstanten, damit die Überlagerungssegmente beim Binden 
berücksichtigt und mit eingebunden werden (siehe auch Abschnitt 6.2). 


— Entspricht einer COBOL-Anweisung in einem Quellprogramm kein Maschinenbefehl 
bzw. keine einfache Folge von Maschinenbefehlen, oder entstehen bei COBOL-Anwei- 
sungen Schnittstellen zum Betriebssystem, so erzeugt der COB1-Übersetzer die erfor- 
derlichen Maschinenbefehle nicht selbst. Er setzt an diese Stellen im Bindemodul nur ex- 
terne Adreßkonstanten, die den Binder veranlassen, in der Modulbibliothek bzw. den 
Modulbibliotheken nach sogenannten COB1-Ablaufzeitmoduln zu suchen, die die ge- 
wünschte Funktion übernehmen. Ein solches COBOL-Quellprogramm (z.B. mit Daten- 
bank-Sprachelementen oder mit Ein-Ausgabeoperationen) erfordert also zum Ablauf 
nicht nur den COB1-Übersetzer, sondern auch eine Modulbibliothek, in der COBI1- 
Ablaufzeitmoduln stehen. Deren Gesamtheit bezeichnet man auch als COB1-Ablaufzeit- 
system. 


Die Hauptfunktion eines Binders besteht also darin, externen Adreßverweisen im Objektpro- 
gramm nachzugehen, die benötigten zusätzlichen Objektmoduln aufzusuchen, hinzuzufügen 
und damit das Ganze zu einer ablauffähigen Einheit zu machen. 
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Objektmodul Objektmodul Objektmodul 
X Y Z 


ENTRY A 


EXIT PROGRAM EXIT PROGRAM 


C 


EXIT PROGRAM EXIT PROGRAM 


Teil Y 


eines ablauffähigen Programms 
mit befriedigten externen Adreßbeziehungen 


Bild 4-1: 
Beispiel für die Aufgaben eines Binders 


Ein Bindemodul kann vorliegen 
— intemporärer Form in der EAM-Bindemoduldatei * 


— gespeichert in einer katalogisierten Bindemodulbibliothek (erstellt durch das Dienstpro- 
gramm LMR [3] oder das Bibliotheksprogramm LMS [21]) 


— gespeichert in einer LMS-Programmbibliothek (erstellt durch das Bibliotheksprogramm 
LMS oder durch COBRUN MODULE =bibliotheksname) 


Entsprechend hat der Benutzer auch beim ablauffähigen Programm die Wahl, es temporär 
zu machen (besonders zweckmäßig in der Testphase) oder als permanentes, ladefähiges 
Programm in einer Lademoduldatei zu speichern. Zwei verschiedene Binde-Routinen führen 
diese Aufgaben durch: 


— Der dynamische Bindelader DLL erzeugt ein temporär ablauffähiges Programm und lädt 
es gleichzeitig in den Speicher (siehe Abschnitt 4.2), 


— Der statische Binder TSOSLNK legt den erzeugten Lademodul in einer katalogisierten 
Datei ab, als Sonderfunktion (Anweisung MODULE) auch in der *-Datei (siehe Ab- 
schnitt 4.3). 
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Bild 4-2 


Temporär und permanent ablauffähige Programme 


4.2 Dynamisches Binden (DLL) 


Der dynamische Bindelader DLL (Dynamic Link Loader) [3] erzeugt aus einem oder mehre- 
ren Objektmoduln ein ablauffähiges Programm, das nur im Speicher existiert und am Ende 
des Programmablaufs automatisch gelöscht wird. Wie sein Name sagt, ist der DLL für Bin- 
den und Laden des Programms zuständig. Er wird implizit durch BS2000-Kommandos aufge- 
rufen, nämlich das EXECUTE- oder das LOAD-Kommando. 


Das EXECUTE-Kommando [2] ruft mit folgendem Format den DLL auf und startet das von 
ihm erzeugte ablauffähige Programm: 


Operation Operanden 
EXECUTE ` IDA = {YES | NO} Së 
pag | PE E | Y FEAT = [ALL| es | [, monuv =ivname] 
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Das LOAD-Kommando [24] weist den dynamischen Bindelader DLL an, ein ablauffähiges 
Programm zu erzeugen und in den Speicher zu laden, ohne es zu starten. Dadurch kann der 
Anwender vor dem Programmablauf weitere Kommandos eingeben — etwa zur Programm- 
überwachung mit einer Dialogtesthilfe. Das Programm kann daraufhin gestartet werden 
durch 


— ein %RESUME-Kommando, falls mit der Dialogtesthilfe AID getestet werden soll bzw. 
— ein RESUME-Kommandb in allen anderen Fällen. 


Operation Operanden 


e IDA = {YES | NO) 
LOAD Leien GE [ tu = [ALL | el | 


bezeichnet die temporäre Bindemoduldatei des Prozesses, in die der 
COB1-Übersetzer das Objektprogramm ausgibt. 


modul bezeichnet den Namen des Moduls, der zuerst geladen werden soll. 
modul besteht aus den ersten 8 Zeichen des Namens aus dem 
PROGRAM-ID-Paragraphen des zugehörigen Quellprogrammes. 


bibliothek gibt den Namen der Bindemodul- oder PLAM-Bibliothek an, in der sich 
das Element mit dem Namen modul befindet. 
Bei PLAM-Bibliotheken muß das Element vom Typ R sein. Sind meh- 
rere Elemente gleichen Namens in der Bibliothek gespeichert, so wird 
das Element mit der alphabetisch höchsten Versionsbezeichnung ge- 


nommen. 
Fehlt diese Angabe, so durchsucht der DLL die evtl. vorhandene, mit 
dem Operanden TASKLIB=... des SYSFILE-Kommandos vereinbarte 


Bindemodulbibliothek des laufenden Prozesses, anschließend die Sy- 
stem-Modulbibliothek TASKLIB. 


IDA=YES bewirkt, daß der dynamische Bindelader das Internadreßbuch (ISD) 
des Programms mit einbindet, sofern dieses Adreßbuch durch die An- 
gabe SYMDIC = YES im PARAMETER-Kommando bei der Übersetzung 
erzeugt worden ist. Der Benutzer kann dann beim Testen des Pro- 
gramms mit IDA-Kommandos (siehe [7]) die symbolischen Adressen 
des Quellprogramms verwenden. 


SYMTEST= ALL ermöglicht es dem Benutzer, ohne weitere Vorkehrungen beim Testen 
mit AID symbolische Namen aus dem Quellprogramm zu verwenden. 
Voraussetzung dafür ist, daß es mit COBRUN SYMTEST = ALL über- 
setzt wurde. 


SYMTEST=NO ist Standardwert. Beim Testen des Programmes mit AID können nur 
dann symbolische Namen angegeben werden, wenn die zugehörigen 
Bindemoduln 
— bei der Übersetzung durch COBRUN SYMTEST = ALL mit LSD-In- 
formationen versorgt wurden und 
— in einer PLAM-Bibliothek für das Nachladen der LSD-Informationen 
durch AID zur Verfügung stehen (siehe [25]). 


MONJV =jvname erklärt die Jobvariable mit dem Namen jvname zur programmüber- 
wachenden Jobvariable (siehe [2], [22]). 


Aus dem Format des EXECUTE- bzw. LOAD-Kommandos ergeben sich für den DLL zwei Ein- 
gabequellen: 


— die EAM-Bindemoduldatei „*“ des Prozesses. In den Kommandos können in diesem Fall 
einzelne Objektmoduln aus der 2 Datei nicht ausgewählt werden. 


— katalogisierte Bindemoduldatei, die mit Hilfe des Dienstprogramms LMR aufgebaut wur- 
den. 
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Enthält der zu bindende Modul externe Adreßverweise, so hat der dynamische Bindelader 
DLL diese zu befriedigen. Er geht dabei folgendermaßen vor: 


1. Der DLL versucht, die Adressen in der *-Datei bzw. in der katalogisierten Bindemodul- 
datei zu finden, die der Benutzer im EXECUTE- bzw. LOAD-Kommando angegeben hat. 


2. Gelingt dies nicht, so sucht der DLL, ob der Benutzer mit dem SYSFILE-Kommando eine 
TASKLIB definiert hat: 


Operation Operand 


dateiname 


SYSFILE TASKLIB = (NO) 


Mit „dateiname” wird der Name einer katalogisierten Bindemoduldatei vereinbart, mit 
(NO) diese Zuordnung rückgängig gemacht. 


Existiert eine solche TASKLIB für den Prozeß, so versucht der DLL die bis dahin unbefrie- 
digten Adreßverknüpfungen mit Hilfe der in ihr enthaltenen Bindemoduln herzustellen. 


3. Zuletzt sucht der DLL die Adreßverweise mit der System-Bindemodulbibliothek 
TSOS.TASKLIB zu befriedigen. 


Beispiel 27: dynamisches Binden (DLL) 


© Der erste Bindemodul aus der temporären Bindemoduldatei * des Prozesses soll ge- 
bunden werden und ablaufen. 


© Der DLL meldet, daß externe Adreßverweise (EXTRN) zu COB1-Ablaufmoduln (ITC...) 
nicht befriedigt werden können, d.h. sie sind in der Objektmodulbibliothek namens 
TASKLIB nicht vorhanden. 


® In diesem Rechenzentrum sind die Moduln des COB1-Ablaufzeitsystems in der Datei 
$RZ4.COB1.130.MODLIB gespeichert. Sobald diese zur TASKLIB erklärt worden ist, läuft 
das Kommando EXEC *% erfolgreich. 


© Der Bindemodul EINXEINS aus der temporären Bindemoduldatei * des Prozesses soll 
ablaufen. 


Beispiel 27a: Dynamisches Binden und Starten eines in einer Bibliothek abgelegten Bin- 
demoduls 


© Zuweisung der TASKLIB auf die COB1-Modulbibliothek 
© Der unter dem Elementnamen ELEMOD abgelegte Bindemodul soll ablaufen. 
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Statisches Binden (TSOSLNK) 


Der statische Binder TSOSLNK (TSOS Linkage Editor) [3] erzeugt aus einem oder mehreren 
Objektmoduln ein ablauffähiges Programm, den sogenannten Lademodul, und speichert 
ihn in einer Datei ab. Der Inhalt dieser Datei ist dann jederzeit lade- und ausführbar. 


Der Binder TSOSLNK gehört zu den Dienstprogrammen und wird mit dem EXECUTE- 
Kommando geladen und gestartet: 


/EXEC $TSOSLNK 


Danach erwartet der Binder Anweisungen aus der Systemdatei SYSDTA, die seinen Lauf 
steuern müssen. 


Im folgenden werden die wichtigsten Anweisungen genannt, weitere Binder-Anweisungen 
sind in Druckschrift [3] bzw. [24] beschrieben. 


a) Für implizites Binden, bei dem der Benutzer die Struktur des Lademoduls, das heißt 
seine Segmentierung, dem System überläßt („Normalfall“ im BS2000), sind folgende 
Anweisungen wichtig: 


Anweisung Beschreibung 
PROGRAM legt fest, wie das Ergebnis des Binderlaufes aussehen soll. Die dazu nötigen Ope- 
PROG randen werden in [24] näher erläutert. 
Anmerkungen: 


— CONTROL =N bewirkt, daß der Binder keinen Steuermodul zum Nachladen 
von Programmteilen einbindet. Seine Angabe ist gleichbedeutend mit der Bin- 
deranweisung NOCTL. 

— SYMTEST = ALL oder SYMTEST = MAP ermöglichen es dem Benutzer, beim 

Testen mit der Dialogtesthilfe AID die symbolischen Namen aus dem Quell- 
programm zu verwenden: 
Voraussetzung dafür ist, daß COB1 beim Übersetzen des Quellprogrammes 
durch COBRUN SYMTEST=ALL veranlaßt wurde, SD-Informationen zu erzeu- 
gen. SYMTEST = ALL weist den Binder an, diese Informationen an den Lade- 
modul weiterzugeben, während SYMTEST = MAP bewirkt, daß im Testfall SD- 
Informationen aus dem Bindemodul nachgeladen werden können (siehe dazu 
[25]). 


INCLUDE legt einzelne Objektmoduln bzw. Objektmodulbibliotheken fest, aus denen der 
Binder den Lademodul aufbauen soll. 

RESOLVE steuern, wo der Binder automatisch Objektmoduln suchen soll, wenn er externe 

und Adreßverweise findet, die nicht durch INCLUDE-Anweisungen befriedigt wer- 

EXCLUDE den (=Autolink-Funktion des Binders). 


RESOLVE gibt Objektmodulbibliotheken für das Autolink-Verfahren an, EX- 
CLUDE schließt Bibliotheken davon aus. 

Anmerkung: Eine EXCLUDE-Anweisung für die TASKLIB, die Bindemodul- 
bibliothek des Systems, ist identisch mit der Binderanweisung NCAL. 


END markiert das Ende der Eingabe von Binderanweisungen. 
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b) Beim expliziten Binden legt der Benutzer mit den folgenden Anweisungen, die er zusätz- 
© lich zu den unter a) genannten geben kann, weitere Eigenschaften des Lademoduls fest: 


Anweisung Beschreibung 
OVERLAY beschreibt den Aufbau eines segmentierten Programms. 


TRAITS vereinbart für einen Programmteil, daß er 
a) beim Laden auf Seitengrenze ausgerichtet werden soll, 


b) während des Programmlaufs nur gelesen werden darf („read only“). 


Explizites Binden ist im BS2000 nur in seltenen Fällen notwendig, da durch den Seiten- 
wechsel-Mechanismus das Betriebssystem automatisch „nachlädt”, d.h. es befinden 
sich nur die gerade benutzten 4K-Seiten des Programms im Hauptspeicher. Sobald wei- 
tere Seiten des Programms benötigt werden, lädt das System sie aus dem Seitenwech- 
selbereich der Magnetplattenspeicher in den Hauptspeicher. Der Benutzer merkt im all- 
gemeinen nichts von diesem Vorgang. 


Findet der Binder in einem Objektmodul externe Adreßverweise, die nicht durch die Mo- 
© duln befriedigt werden können, die der Benutzer in INCLUDE-Anweisungen genannt hat, so 
geht der Binder nach folgendem Autolink-Mechanismus vor: 


— Als erstes prüft der Binder, ob der Benutzer in einer RESOLVE-Anweisung dem externen 
Adreßverzeichnis explizit eine Bindemoduldatei zugeordnet hat, in der ein passender 
Modul zu finden ist. 


— Bleibt dabei die Suche nach einer Einsprungadresse erfolglos, geht der Binder sämtliche 
Bindemoduldateien durch, die der Benutzer in RESOLVE-Anweisungen genannt hat. Dies 
kann der Benutzer mit entsprechenden EXCLUDE-Anweisungen unterdrücken. 


— Ist es dem Binder immer noch nicht gelungen, den externen Adreßverweis zu befriedi- 
gen, durchsucht er die Bindemoduldatei TASKLIB, falls der Benutzer es nicht mit einer 
entsprechenden EXCLUDE-Anweisung bzw. mit einer NCAL-Anweisung verhindert. Die 
Datei TASKLIB wird zuerst unter der Benutzerkennung des Prozesses gesucht. Ist dort 
keine Datei dieses Namens vorhanden, wird die Bindemoduldatei des Systems, die Datei 
$TSOS.TASKLIB, genommen. 


Alle gefundenen Bindemoduln bindet der TSOSLNK zum Lademodul. Bleibt seine Suche er- 
folglos, gibt er Fehlermeldungen aus. 


Es ist nicht erlaubt, COBOL-Programme als Klasse 1-Programme zu binden. 
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Beispiel 28: statisches Binden (TSOSLNK) 


© Der Binder TSOSLNK soll seine Anweisungen von der Eingabequelle lesen, von der auch 
die Kommandos kommen. SYSDTA wird deshalb mit SYSCMD zusammengeschaltet. 


® Das Dienstprogramm TSOSLNK wird geladen und gestartet. 


® XYZ vereinbart den Namen des gebundenen Programms, gleichzeitig aber auch den Na- 
men der Ausgabedatei, in die das gebundene Programm geschrieben werden soll. 


© Der Bindemodul EINXEINS aus der Datei * soll gebunden werden. 


© In der Bibliothek $RZ4.COB1.130.MODLIB sucht der Binder Einsprungadressen. 


Die Binder-Anweisungen werden beendet. Der Binder meldet die Erstellung der Ausga- 
bedatei. | 


© Das Programm XYZ wird gestartet. 


Beispiel 28a: Statisches Binden eines in einer Bibliothek abgelegten Bindemoduls und 
Starten des Programms 


O Anweisungen für TSOSLNK sollen von der gleichen Eingabequelle kommen wie Kom- 
mandos. 

© Aufruf des Binders. 

® Das Programm wird COBPROG genannt und soll auf der Datei L.PROG stehen. 

© Der Modul ELEMOD aus der Bibliothek LMS.OML wird gebunden. 

© In der COB1-Modulbibliothek COB1IMODLIB sucht der Binder Einsprungadressen. 

Starten des Programms. 
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Handhabung ablauffähiger Programme 


Zuweisung von Betriebsmitteln 


Übersicht 


Eine der wesentlichen Aufgaben von COBOL-Programmen in der kommerziellen Datenverar- 
beitung ist die Ein-Ausgabe von Daten bzw. der Zugriff zu Dateien. Dazu ist eine entspre- 
chende Programmierung erforderlich (siehe Kapitel 6). Der Benutzer muß vor dem Aufruf 
des ablauffähigen Programms die benötigten Betriebsmittel zuweisen. Abschnitt 5.1 be- 
handelt die wichtigsten Typen der Betriebsmittelzuweisung: 


Das Programm soll 


— Daten aus den Systemdateien SYSDTA oder SYSIPT einlesen oder in die Systemdateien 
SYSLST, SYSLSTnn, SYSOUT oder SYSOPT ausgeben (siehe Abschnitt 5.1.2); 


— Daten aus Dateien lesen oder in Dateien schreiben (siehe Abschnitt 5.1.3). 


Bearbeitung von Systemdateien 


Systemdateien sind normierte Dateien oder Geräte. Sie verwendet der Benutzer, um kleine 
Datenmengen ein- oder auszugeben. Im Quellprogramm verwendet er dazu (ohne Datei- 
erklärung und ohne OPEN oder CLOSE) die COBOL-Anweisungen ACCEPT, DISPLAY, 
STOP-Literal oder die Testhilfe-Anweisungen EXHIBIT und TRACE: 


— ACCEPT kann auf SYSDTA, SYSIPT oder den Bedienungsplatz zugreifen. 


— DISPLAY kann auf SYSLST, SYSLSTnn, SYSOPT, SYSOUT oder am Bedienungsplatz 
ausgeben. 


— Das Literal der STOP-Literal-Anweisung wird am Bedienungsplatz ausgegeben. 


— Die Testhilfe-Anweisungen EXHIBIT und TRACE veranlassen bzw. steuern Ausgaben 
nach SYSLST. 


Die folgenden beiden Tabellen zeigen, welche Systemdateien bei der Eingabe bzw. bei der 


. Ausgabe möglich sind. 


Tabelle: Systemdateien und COBOL-Anweisungen für die Eingabe 


Systemdatei COBOL-Anweisung Bedeutung 


SYSDTA SYSRDR') Eingabe von Daten vom Datensicht- 
ACCEPT... FROM 


SYSIN gerät, aus der SYSDTA bzw. SYSIPT 
TERMINAL zugewiesenen Datei oder vom Loch- 
merkname?) kartenleser 


rn ACCERT. ROM EOFT = 
merkname?) 
Bedienungsplatz | ACCEPT... FROM CONSOLE?) Eingabe am Bedienungsplatz 
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Tabelle: Systemdateien und COBOL-Anweisungen für die Ausgabe 


Systemdatei COBOL-Anweisung Bedeutung 


SYSLST EXHIBIT Ausgabe auf Drucker oder in 
TRACE®) SAM-Datei 
DISPLAY...UPON er ; 
merkname?) 
SYSLSTnn?) DISPLAY... UPON merkname?) Ausgabe auf Drucker oder in SAM- 
Datei 
SYSOUT SYSOUT Ausgabe auf 
DISPLAY...UPON o TERMINAL — Datensichtgerät (im Dialogbetrieb) 
merkname?) — Drucker (im Stapelbetrieb) 
SYSOPT SYSOPT Ausgabe von Daten im Lochkartenfor- 
SYSPUNCH mat; Ausgabe in SAM-Datei, auf Floppy 
EEN SYSPCH Disk oder auf Lochkartenstanzer 
merkname?) 
Bedienungsplatz | STOP literal Ausgabe am Bedienungsplatz 


DISPLAY... UPON CONSOLE?) 


') SYSRDR wird aus Kompatibilitätsgründen zum BS1000 unterstützt. 

?) Wie im SPECIAL-NAMES-Paragraphen festgelegt. 

"TI CONSOLE sollte möglichst nicht verwendet werden, da im „Closed Shop“-Betrieb des BS2000 der Operateur meist nicht über Datenein- 
gabe und Datenausgabe Bescheid weiß. 

*) Betrifft die durch READY TRACE eingeschalteten und durch RESET TRACE ausgeschalteten Testüberwachungsausgaben. 

°) nn muß eine Zahl zwischen 01 und 99 sein. SYLST01,....SYSLST99 sind logische Ausgabedateien des Betriebssystems ab Version 8.0. 


Beispiele zur Programmierung: Beispiel 1 und Beispiel 38b in Abschnitt 6.4. 


Zuordnung der Systemdateien zu Geräten 


Standardmäßig sind im BS2000 die Systemdateien SYSDTA, im Stapelbetrieb SYSIPT, 
SYSLST und SYSOUT bei Prozeßbeginn einem bestimmten Eingabe- bzw. Ausgabe-Gerät 
zugeordnet. Man bezeichnet dies als Primärzuweisung (siehe Tabelle). 


Diese Systemdateien können mit dem SYSFILE-Kommando vom Benutzer umgewiesen 
bzw. neu zugewiesen werden (ausführliche Beschreibung im Manual „Kommandosprache‘“, 
[2]). Das dritte Format in der nachstehenden Tabelle legt fest, daß nach Prozeßende 
SYSOPT auf eine Floppy Disk geschrieben wird. Format: 


dateiname 
(SYSCMD) 
/SYSFILE | | = | (PRIMARY) 
(mn) 
(CARD) 


dateiname 
SYSLST 
/SYSFILE ?SYSLSTnn (dateiname,EXTEND) 
SYSOPT *"DUMMY 
(PRIMARY) 


/SYSFILE SYSLSTnn = *SYSLSTpp 


/SYSFILE DEVICE=DISKETTE,FILE=SYSOPT 


dateiname Name einer katalogisierten Datei, der SYSDTA, SYSIPT, SYSLST, SYSLSTnn 
(01 < nn <99) oder SYSOPT zugewiesen werden soll. 


EXTEND Eine bereits vorhandene Datei soll erweitert werden. 
*DUMMY Ausgabe in eine Pseudodatei, d.h. keine Ausgabe auf externe Speicher. 


(SYSCMD) schaltet die links vom Gleichheitszeichen stehende Systemdatei mit der Sy- 
stemdatei SYSCMD zusammen; das ist die Datei, von der Kommandos gele- 
sen werden (vgl. „Kommandosprache‘“, [2]). 


(PRIMARY) legt die betreffende Systemdatei auf ihre Primärzuweisung zurück. 
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(mn) ordnet SYSDTA einen Kartenleser bzw. ein Disketten-Gerät (ab BS2000 V7.1) 
© mit einem 2 Bytes langen mnemotechnischen Namen zu. 


(CARD) weist den Kartenleser zu. 


"SYSLSTpp logische Ausgabedatei des Betriebssystems ab Version 8.0, der SYSLSTnn zu- 
geordnet werden soll. Folgende Bedingungen müssen dabei erfüllt sein: 
1. nn und pp müssen zweistellige Zahlen zwischen 01 und 99 sein. 
2.nn # pp 
Eine ausführliche Beschreibung dieses Formats findet sich in [2]. 


Anmerkung: SYSIPT hat im Dialogbetrieb keine Primärzuweisung. 


Tabelle: Systemdateien, Primärzuweisungen, Umweisungen 


System- Primärzuweisung Umweisung auf mit dem Kommando 


datei 
im Dialogbetrieb | im Stapelbetrieb 


SYSDTA SPOOLIN-Datei 


š en 
5 


SYSLST | temporäre SPOOLOUT-Dateien (EAM- 
SYSLSTnn| Dateien), die bei Prozeßende auf dem 
1 Drucker ausgegeben und anschließend 


gelöscht werden. 
C SYSOPT 


katalogisierte /SYSFILE SYSDTA = dateiname 


oder ENTER-Datei Plattendatei = bibl (elem) 
(SAM oder ISAM) 
Kartenleser ... = (CARD) oder 5D 
. =(mn) 


Floppy Disk ... =(mn) 


/SYSFILE SYSIPT = dateiname 


SPOOLIN-Datei 
oder ENTER-Datei 


katalogisierte 
Plattendatei 
(SAM oder ISAM) 


... =(CARD) oder 
dÉ =(mn) 


temporäre SPOOLOUT- | katalogisierte /SYSFILE SYSOUT = dateiname 
Datei (EAM-Datei), die Datei ` (ab BS2000 V7.1) 
bei Prozeßende auf dem | (Band oder Platte) nur im Stapelbetrieb 


Drucker ausgegeben 
und anschließend 
gelöscht wird 


/SYSFILE SYSLST[nn] = dateiname 
... = (dateiname, 
EXTEND) 


katalogisierte 
Plattendatei 
(SAM) 


Pseudodatei 
(*DUMMY) 


katalogisierte 
Plattendatei (SAM) 


Pseudodatei 

(*DUMMY) 

Floppy Disk /SYSFILE FILE=SYSOPT, 
DEVICE = DISKETTE 


') nn muß eine Zahl zwischen 01 und 99 sein. SYLST01,...,SYSLST99 sind logische Ausgabedateien des Betriebs- 
systems ab Version 8.0. 


/SYSFILE SYSLST[nn] = *DUMMY 


temporäre SPOOLOUT-Datei (EAM-Datei), 
die bei Prozeßende auf dem Kartenstanzer 
ausgegeben und anschließend gelöscht 
wird 


/SYSFILE SYSOPT = dateiname; 
... =(dateiname, 
EXTEND) 


/SYSFILE SYSOPT= XDUMMY 
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Ändern des Ausgabeformats 


Überdies kann mit dem SYSFILE-Kommando zur Ausgabe über SYSLST (Dateien im Druk- 
kerformat) bzw. über SYSOPT (Dateien im Lochkartenformat) das standardmäßige Format 
geändert werden (näheres siehe Manual „Kommandosprache“, [2]): 


Operation Operanden 


SYSFILE ns: E y 


SYSOPT 
= J136 
rem i H 
[‚HREC=m] 
[,FORM=code][,‚LOOP=vfb] 


_ Janzahl1 
,COPIES= EK anzahl?) h 


[‚CHARS=(z1[,z2][,z3][,z4])] 
L,CONTROL= NO |PHYS] 
IMAGE xxxx] 

‚DIA = zz] 

[,SHIFT = spalten] 
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5.1.3 Bearbeitung von Dateien 


C Ein COBOL-Programm kann Dateien verschiedener Organisationsformen mit den Zugriffs- 
methoden SAM, ISAM oder PAM bearbeiten lassen. 


Zugriffsmethode des 

Datenverwaltungs- 
Organisationsform im COBOL-Programm (ORGANIZATION-Klausel) system im BS2000 
sequentiell (SEQUENTIAL) SAM 


Sätze werden in der Reihenfolge gelesen, in der sie in der Datei stehen; sie | (Platte oder Band) 
werden entsprechend der Reihenfolge der WRITE-Anweisungen in die 
Datei geschrieben. 


relativ (RELATIVE) PAM 
Sätze erhalten eine relative Satznummer, mit deren Hilfe zugegriffen wird. | (Platte) 
indiziert (INDEXED) ISAM 
Jeder Satz enthält ein Schlüsselfeld, aus dem sich das Datenverwaltungs- (Platte) 


system einen Index aufbaut und mit dessen Hilfe zugegriffen wird. 


© Als Informationen über die Datei, die verarbeitet werden soll, enthält das COBOL-Programm: 


- die Dateierklärung (FD), 
— Angaben in der SELECT-Klausel, 


- Angaben in den APPLY-Klauseln (nur bei indizierten Dateien). 


In Kapitel 6 wird ausführlich gezeigt, auf welche Dateitypen ein COBOL-Programm zugreifen 
kann und wie es dazu programmiert werden muß. 


Im allgemeinen gibt der Benutzer vor dem Programmaufruf je ein FILE-Kommando [2] für 
die zu verarbeitenden Dateien, in dem er Dateinamen, evtl. auch Betriebsmittel und Datei- 
eigenschaften festlegt. 


Wird kein FILE-Kommando gegeben, nimmt das System den COBOL-Dateinamen als Na- 
men der katalogisierten Datei. 


Das Format des FILE-Kommandos mit genauer Beschreibung der Operanden ist in [2] nach- 
zulesen. 


Hinweise zu einigen Operanden: 


„dateiname“ ist ein vom COBOL-Programm unabhängiger, frei wählbarer Name. Er ist im 
Katalog eingetragen bzw. wird durch das Kommando neu in ihn aufgenommen. 


„link” ist der Dateikettungsname (LINK-Name). Mit seiner Hilfe stellt das System während 
des Programmlaufs die Beziehung zwischen den übrigen Angaben im FILE-Kommando und 
den Angaben zur Datei her, die sich im Programm befinden. Dazu muß „link“ mit den ersten 
8 Zeichen eines COBOL-Dateinamens in der SELECT-Klausel übereinstimmen. Ausnahmen: 
Übersetzt man mit dem COBRUN-Operanden LINK, muß „link“ mit NAME1 (maximal 8 Zei- 
chen) im Herstellerwort der ASSIGN-Klausel übereinstimmen (siehe BS2000 COB1 Be- 
schreibung [1]). Folgende Dateikettungsnamen (=COBOL-Dateinamen) sind für das Dıenst- 
programm SORT reserviert und dürfen innerhalb eines Programms mit SORT für andere Da- 
© teien nicht verwendet werden: 
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MERGExx (xx =01 ...., 99) 

SORTIN,SORTINxx (xx =01 ...., 99) 

SORTOUT 

SORTWK,SORTWKx (x =1 ...., 9), SORTWKxx (xx =01 ...., 99) 
SORTCKPT 


Alle übrigen Operanden des FILE-Kommandos beschreiben die Betriebsmittel der Datei und 
die Dateieigenschaften. 


Die Angaben des FILE-Kommandos speichert das Betriebssystem unter dem Dateikettungs- 
namen in der Dateitabelle des Prozesses (TFT, task file table). Dort verbleiben sie bis Pro- 
zeßende, bis zu einem RELEASE-Kommando oder einem neuen FILE-Kommando, das sich 
auf diesen Dateikettungsnamen bezieht. Sobald eine Datei eröffnet wird (OPEN im COBOL- 
Programm), prüft das System nach, ob der COBOL-Dateiname als Kettungsname in der 
Prozeßdateitabelle (TFT) vorkommt. Bei Übereinstimmung berücksichtigt das System die 
Vereinbarung des FILE-Kommandos: Sie überschreiben für diesen Programmlauf die An- 
gaben im Programm, so daß zum Beispiel zu einem im Kommando festgelegten Gerät zuge- 
griffen wird, auch wenn ursprünglich durch ASSIGN ein anderes vereinbart worden ist. 


Beispiel 29: Verkettung eines FILE-Kommandos mit Dateiangaben im COBOL-Programm 


® Bei der Bearbeitung des FILE-Kommandos wird unter anderem der Eintrag AUSGABE in 
der Prozeßdateitabelle aufgebaut. 


© Bei Dateieröffnung (OPEN) überschreiben die Angaben der Prozeßdateitabelle, die zum 
Eintrag AUSGABE gehören, die Angaben im COBOL-Programm. 


Der LINK-Mechanismus erweist sich als vorteilhaft, weil man bei jedem Programmlauf an- 
dere Dateiattribute festlegen kann, ohne das gespeicherte Programm zu ändern, d.h., ohne 
neu übersetzen zu müssen. 
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Beispiel 30: Betriebsmittelzuweisung bei Bandverarbeitung (vgl. Beispiel 29) 


© Dateiname, Gerät (DEVICE) und Datenträger (VOLUME) werden mit dem Dateikettungs- 
namen AUSGABE verknüpft, d.h. es wird ein entsprechender Eintrag in die Dateitabelle 
des Prozesses (TFT) gemacht. Außerdem wird die Datei MEIER.ERGEBNIS in den Kata- 
log aufgenommen. 


© Unabhängig von der Bearbeitung des FILE-Kommandos wird für die Datei MEIER. 
ERGEBNIS ein Lese-Kennwort C’BEN’ in den Katalog eingetragen, d.h. nur der Benutzer 
kann die Datei lesen oder in sie schreiben, der dieses Kennwort dem System bekannt 
gibt. 


& Das Kennwort C’BEN’ wird dem System mitgeteilt. 


@ Der Objektmodul VERARB aus der Bibliothek BIBLIO wird gebunden und gestartet. Er 
besitzt für die Ausgabe den COBOL-Dateinamen AUSGABE und verarbeitet daher die 
Banddatei MEIER.ERGEBNIS auf dem Datenträger 000012. 


Um mehrere Dateien auf mehreren Bändern zu verarbeiten, verwendet der Benutzer die 
MULTIPLE FILE TAPE CONTAINS-Klausel (siehe COB1 Sprachbeschreibung, [1]). Benötigte 
Operanden für die entsprechenden FILE-Kommandos sind im Manual „Kommandosprache“, 
[2] beschrieben 


Beispiel 31: Zugriff auf die dritte Datei auf einer Folge von zwei Bändern 


Der Operand FSEQ=3 hat Vorrang gegenüber der Angabe in der MULTIPLE FILE 
TAPE CONTAINS-Klausel. 


Beispiel 32: Zuweisung verschiedener Eingabedateien bei nur einer Dateierklärung 


M Die Kennwörter CEIN und X’FADE’ werden dem System mitgeteilt, um den Zugriff zu 
geschützten Daten zu ermöglichen. 


OG" Dem Dateikettungsnamen (= COBOL-Dateinamen) EIN wird die katalogisierte Datei 
MEIER.1 zugeordnet. Der Lademodul PROGR liest diese Datei, denn er enthält SELECT 
EIN ASSIGN DA-590-S-SYSO1O. 


@ Dem Kettungsnamen EIN wird eine neue Datei zugeteilt. Sie wird anschließend von 
PROGR bearbeitet. 


@ Die Verkettung von EIN und MEIER.2 wird aufgehoben. 


6) In der Prozeßdateitabelle (TFT) gibt es keinen Eintrag für den Kettungsnamen EIN mehr. 
Das Programm PROGR versucht daher, aus einer Datei namens EIN (= COBOL-Dateiname) 
zu lesen. 
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Programmaufruf und Programmbeendigung 


Der Benutzer möchte, nachdem er die evtl. benötigten Betriebsmittel vereinbart hat, nun 
sein COBOL-Programm ablaufen lassen. 

Dies geschieht mit Hilfe des EXECUTE-Kommandos (Laden und Starten) oder des LOAD- 
Kommandos (Laden) und RESUME-Kommandos (Starten). Das LOAD-Kommando setzt 
man ein, wenn man vor dem Start noch andere Kommandos eingeben will, z.B. Testhilfe- 
Kommandos. 


Aus der Form des Operanden im EXECUTE- oder LOAD-Kommando geht hervor, welcher 
Lader erforderlich ist : Liegt das Programm als Bindemodul vor, d.h. muß es noch gebunden 
werden, wird der Dynamische Bindelader (DLL) aufgerufen. Handelt es sich um einen Lade- 
modul, d.h. ein gebundenes, ablauffähiges Programm, so wird der Lader des Systems ange- 
sprochen. 


Bild 5-4 zeigt die verschiedenen Formen, in denen das COBOL-Programm vorliegen kann. 
— als Bindemodul in der temporären Bindemoduldatei X des Prozesses, 

— als Bindemodul in einer katalogisierten Bindemodulbibliothek, 

— als Lademodul. 


Das Beendigungsverhalten des Programmes ist insbesondere dann von Bedeutung, wenn es 
in einer Prozedur aufgerufen oder von einer Jobvariable überwacht wird. 

Beim Auftreten von Fehlermeldungen, denen ein interner Return-Code zugeordnet ist (siehe 
dazu auch Fehlermeldung 9040 im Anhang), wird dieser Return-Code in die letzten beiden 
Bytes der Rückkehrcode-Anzeige einer überwachenden Jobvariable (sh. [22]) übernommen. 
Die folgende Tabelle gibt einen Überblick über die möglichen Inhalte der Rückkehrcode-An- 
zeige und die zugeordneten Fehlermeldungen sowie deren Auswirkung auf den weiteren Ab- 
lauf einer Prozedur: 


Rückkehrcode-Anzeige |zugeordnete Fehlermel-| Beendigung Verhalten in Proze- 
in Jobvariablen') dungen (Nummer)?) duren 
0100 keine Verzweigung 
0111?) 


9082 abnormal Verzweigung zum 
9088 nächsten STEP-, 
Kc a er 
oder LOGOFF- 
Wf an 9074A Kommando 


abnormal 


AU Ser Es 
kann keine Meldung 
mehr ausgegeben 
werden 


i ai 


1) Die beiden letzten Ziffern (fett gedruckt) stellen den internen Return-Code dar. 
2?) Inhalt und Bedeutung der Meldungen siehe Anhang 1. 
3) Anwender-Return-Code (Users Return Code) ist gesetzt 
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bibliothek des Prozesses 


cl Ergebnis des Übersetzungslaufs COBRUN MODULE = 
en in der temporären Objektmodul - bibliotheksname 
* 


Bibliotheksprogramm 
LMS 


Dienstprogramm 
LMR 


LAA Bindemodul in Bindemodul in < 
© katalogisierter katalogisierter 
Bindemodulbibliothek Programmbibliothek 
oder Bindemodul- 


bibliothek 


Statischer Binder 
TSOSLNK 


a 
ablauffähiges Programm 
(= Lademodul) in Datei 
/EXEC * /EXEC (modul, bibliothek) 


/EXEC (modul,*) /EXEC (modul) /EXEC programm 


Dynamischer Bindelader DLL 


Ausführung des temporär Ausführung des 
ablauffähigen Programms ablauffähigen Programms 


Bild 5-3 
Möglichkeiten des Programmaufrufs 


An die Stelle des EXEC-Kommandos können auch LOAD- und RESUME-Kommando (bzw. 
%RESUME-Kommando beim Testen mit AID) treten. 


Das betreffende Format des EXECUTE-Kommandos [2] lautet: 


Operation Operanden 
; ZS IDA = {YES | NO 
Ram (modul[,bibliothek]) [, tler a Vë weil ][,monsv =jvname| 
EXEC program Ze 
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* 


modul 


bibliothek 


program 


IDA=YES 


SYMTEST = ALL 


SYMTEST = NO 


MONJV = jvname 


bezeichnet die temporäre Bindemoduldatei des Prozesses, in die der 
COB1-Übersetzer das Objektprogramm ausgibt. 


gibt den Namen eines Bindemoduls (1 bis 8 Zeichen) an, der aus dem 
PROGRAM-ID-Namen des Quellprogramms gebildet wird. 


Name einer Bindemodulbibliothek; dabei kann es sich um die temporäre 
Bindemoduldatei X oder um eine katalogisierte Datei handeln, die mit 
Hilfe des Dienstprogramms LMR oder LMS erstellt wurde. 


Fehlt die Angabe der Bibliothek, wird TASKLIB genommen. 


Name einer katalogisierten Datei, die mit Hilfe des statischen Binders 
TSOSLNK erstellt wurde und in der sich ein Lademodul befindet. 


Das Dienstprogramm TSOSLNK bezieht den Bindemodul aus der tempo- 
rären Bindemoduldatei des Prozesses oder einer katalogisierten Biblio- 
thek. Abgelegt wurde der Modul entweder direkt vom COB1-Übersetzer 
durch die COBRUN-Anweisung MODULE =bibliotheksname oder mit Hilfe 
des Dienstprogramms LMS in einer katalogisierten LMS-Programm- oder 
Bindemodulbibliothek oder mit Hilfe des Dienstprogramms LMR in einer 
katalogisierten Bindemodulbibliothek. 


bewirkt, daß (falls vorhanden) das Internadreßbuch des Programms be- 
rücksichtigt wird, so daß in DTH-Kommandos symbolische Adressen ver- 
wendet werden können. 


ermöglicht es dem Benutzer, ohne weitere Vorkehrungen beim Testen mit 
AID symbolische Namen aus dem Quellprogramm zu verwenden. Voraus- 
setzung dafür ist, daß es mit COBRUN SYMTEST=ALL übersetzt (und 
ggf. mit PROGRAM... ,SYMTEST = ALL gebunden) wurde. 


ist Standardwert. Beim Testen des Programmes mit AID können nur dann 

symbolische Namen angegeben werden, wenn die zugehörigen Bindemo- 

duln 

— bei der Übersetzung durch COBRUN SYMTEST = ALL mit LSD-Infor- 
mationen versorgt wurden und 

— in einer PLAM-Bibliothek für das Nachladen der LSD-Informationen 
durch AID zur Verfügung stehen (siehe [25]). 


erklärt die Jobvariable mit dem Namen jvname zur programmüberwa- 
chenden Jobvariable (siehe [2], [22]). 


Mit Ausnahme von MONJV stimmen die Operanden des LOAD-Kommandos [2] mit denen 
des EXECUTE-Kommandos überein. 


Unter dem Laden eines Programms versteht man im BS2000 seine Übernahme aus einer Da- 
tei auf die Träger des virtuellen Adreßraums, d.h. die Gesamtheit von Haupt- und Seiten- 
speicher. Während des Programmlaufs stehen automatisch nur die Teile („Seiten“, je 4096 
Byte) des Programms im Hauptspeicher, die gerade zum Ablauf benötigt werden; ein Abbild 
dieser Seiten und alle übrigen befinden sich auf dem Seitenspeicher. 


Hinweis: 


Es ist nicht erlaubt, COBOL-Programme als Klasse 1-Programme zu laden. 
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AID 


Dialogtesthilfe AID 
Einführung 


Auch wenn COB1 ein COBOL-Programm als syntaktisch einwandfrei meldet, enthält es 
möglicherweise noch Logikfehler und läuft daher nicht in der gewünschten Weise ab. Für 
das Auffinden und Beseitigen solcher Fehler stehen dem COBOL-Programmiierer verschie- 
dene Hilfsmittel zur Verfügung: 


— Er kann bereits in das Quellprogramm Testhilfezeilen einbauen und sie bei Bedarf aktivie- 


ren. Dies setzt voraus, daß schon bei der Erstellung des Quellprogrammes mögliche Feh- 
lersituationen eingeplant werden und hat zur Folge, daß es zur Diagnose unvorhergese- 
hener Fehler erforderlich werden kann, Testhilfezeilen abzuändern oder hinzuzufügen 
und anschließend das Quellprogramm neu zu übersetzen. Testhilfezeilen werden in [1] 
beschrieben. 


Er kann während des Programmlaufes die Dialogtesthilfe AID (Advanced Interactive De- 
bugger) einsetzen. Sie erfordert keine Vorkehrungen bei der Programmierung und er- 
laubt es, im geladenen Programm während dessen Ausführung Fehler zu suchen und 
vorübergehend zu beheben. 


In diesem Benutzerhandbuch soll AID lediglich kurz vorgestellt werden. Die ausführliche Be- 
schreibung dieser Testhilfe findet sich in [25]. 


AID zeichnet sich durch folgende Leistungsmerkmale aus: 


$ 


Es bietet die Möglichkeit, „symbolisch“ zu testen, d.h. in den Kommandos anstelle sede- 
zimaler Adressen auch symbolische Namen aus dem Quellprogramm anzugeben, wenn 
die dafür nötigen LSD-Informationen beim Übersetzen erzeugt und später an das gela- 
dene Programm weitergegeben werden (siehe 5.3.2). 

Dabei ist es nicht unbedingt erforderlich, diese Informationen stets für das Gesamtpro- 
gramm zusammen mit diesem Programm zu laden. AID erlaubt nämlich ein Nachladen 
der LSD-Informationen für jede Übersetzungseinheit, falls die zugehörigen Bindemoduln 
(mit den LSD-Informationen) in einer PLAM-Bibliothek stehen. Dadurch lassen sich Be- 
triebsmittel wirtschaftlicher einsetzen: 


— Der Programmspeicher wird entlastet, da LSD-Informationen nur dann geladen wer- 
den müssen, wenn sie zum Testen benötigt werden (der Speicherbedarf für ein Pro- ` 
gramm steigt durch das Mitladen dieser Informationen ungefähr auf das Fünffache). 


— Ein Programm, das im Test fehlerfrei bleibt, muß für den Produktiveinsatz nicht unbe- 
dingt neu (ohne LSD-Informationen) übersetzt oder gebunden werden. 


— Falls sich für ein Programm während seines Produktiveinsatzes ein Test als nötig er- 
weist, stehen dafür LSD-Informationen zur Verfügung, ohne daß das Programm er- 
neut übersetzt und gebunden werden muß. 


. Es stellt Funktionen zur Verfügung, die es insbesondere gestatten, 


— den Programmablauf auf symbolischer Ebene zu verfolgen und zu protokollieren 
(TRACE-Funktion) 


— den Programmablauf an festgelegten Stellen oder beim Eintreten definierter Ereig- 
nisse zu unterbrechen, um AID- oder BS2000-Kommandos (sogenannte Subkomman- 
dos) ausführen zu lassen 


— sich die Inhalte von Feldern in einer Form ausgeben zu lassen, welche die Datendefi- 
nitionen des Quellprogrammes berücksichtigt 


die Inhalte von Feldern zu verändern, wobei AID die dazu nötigen Datenübertragun- 
gen gemäß den Regeln der COBOL-MOVE-Anweisung durchführt 
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3. Es unterstützt neben der Diagnose geladener Programme auch die Analyse von Spei- 
cherabzügen in Plattendateien. 


4. Es kann außer im Dialog- auch im Stapelbetrieb eingesetzt werden. Für einen Programm- 
test empfiehlt sich allerdings der Dialog, da die Folge der Kommandos nicht im voraus 
festgelegt werden muß und der jeweiligen Testsituation angepaßt werden kann. 


Voraussetzungen für das symbolische Testen 


Beim Testen auf symbolischer Ebene erlaubt es AID, Datenfelder, Kapitel und Paragraphen 
mit den im Quellprogramm definierten Namen anzusprechen und sich auf Anweisungszeilen 
und einzelne COBOL-Verben in der PROCEDURE DIVISION zu beziehen. Dafür müssen AID 
Informationen über diese symbolischen Namen zur Verfügung gestellt werden. Diese Infor- 
mationen gliedern sich in zwei Teile (siehe dazu [23]), 


— die LSD (List for Symbolic Debugging), in der die im Modul definierten symbolischen Na- 
men und Anweisungen verzeichnet sind und 
— das ESD (External Symbol Dictionary), das die Externbezüge eines Moduls registriert. 


Die Erzeugung bzw. Weitergabe dieser Informationen wird bei jedem der folgenden Schritte 


— Übersetzen mit COB1 

— Binden und Laden mit DLL oder 
— Binden mit TSOSLNK 

— Laden mit ELDE 


durch den Operanden SYMTEST veranlaßt oder unterdrückt. Dabei werden ESD-Informatio- 
nen standardmäßig generiert und weitergegeben, während die LSD-Informationen AID auf 
zwei Wegen zugänglich gemacht werden können: Nachdem sie bei der Übersetzung erzeugt 
worden sind, ist es möglich, 


— sie zusammen mit dem Gesamtprogramm zu laden oder 
— sie erst bei Bedarf für jede Übersetzungseinheit nachzuladen, falls die zugehörigen Bin- 
demoduln in einer PLAM-Bibliothek stehen. 


Die folgende Tabelle gibt für beide Fälle einen Überblick über die Werte, die dem SYMTEST- 
Operanden bei jedem Schritt zugeordnet werden müssen (zur genaueren Information 
siehe [25]). 


Schritte in der 
Programmentwicklung 


Werte der SYMTEST-Operanden, 


wenn die LSD-Information zusam- | wenn später die LSD-Information 
men mit dem Gesamtprogramm durch AID nachgeladen werden 
geladen werden soll soll’) 


Übersetzen mit COB1 COBRUN SYMTEST = ALL COBRUN SYMTEST = ALL 


LOAD...,SYMTEST=ALL LOAD....[,SYMTEST = NO] 
Binden und Laden mit DLL | oder oder 
EXEC...,SYMTEST = ALL EXEC . . . [[SYMTEST = NO] 


Binden mit TSOSLNK PROGRAM .. ..SYMTEST = ALL PROGRAM .. . [[SYMTEST = MAP] 


LOAD...,SYMTEST = ALL LOAD... .[,SYMTEST = NO] 
oder oder 
EXEC . . ..SYMTEST = ALL EXEC . . .[,‚SYMTEST = NO] 


Laden mit ELDE 


') Dies ist nur dann möglich, wenn die zugehörigen Bindemoduln in einer PLAM-Bibliothek stehen 
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AID 


Symbolisches Testen mit AID 


Beim symbolischen Testen mit AID können Datenfelder, Kapitel und Paragraphen mit den 
Namen angesprochen werden, die im Quellprogramm definiert wurden. 


Um dagegen auf eine Zeile in der PROCEDURE DIVISION Bezug zu nehmen, muß man einen 
Namen der Form 


— S’nnnnn’ (für eine Zeile ohne COBOL-Verb) bzw. 
— S’nnnnnverbk’ (für eine Zeile mit COBOL-Verben) 


angeben. Einen solchen LSD-Namen bildet COB1 für jede Zeile in der PROCEDURE DIVI- 
SION und für jedes COBOL-Verb in einer Anweisungszeile. Seine Bestandteile haben dabei 
folgende Bedeutung: 


nnnnn ist die maximal fünfstellige Nummer dieser Zeile in der PROCEDURE DIVISION, die 
COB1 bei der Übersetzung vergeben hat. Sie muß ohne führende Nullen angegeben 
werden. 


verb ist die festgelegte Abkürzung eines COBOL-Verbs in der betreffenden Zeile. Diese 
Abkürzungen können der nachstehenden Liste entnommen werden. 


k ist eine einstellige Nummer, die angibt, das wievielte von mehreren gleichen COBOL- 
Verben innerhalb der Zeile nnnnn bezeichnet werden soll. 
Falls k gleich 1 ist, wird es weggelassen. 
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Liste der Abkürzungen für COBOL-Verben: 


ACC 
ADD 
ADDC 
ALT 
CALL 
CANC 
CLO 
COM 
CON 
DEL 
DIS 
DIV 
DSC 
ENTR 
ERA 
EXI 
EXIT 
FET 
FIN 
FND 
FRE 
GEN 
GET 
GOT 
IF 
INI 
INIT 
INSP 
KEE 
MOD 
MOV 
MOVC 
MRG 
MUL 
ON 
OPE 
PER 
REA 
REDY 
REL 
RET 
REW 


ACCEPT 
ADD 

ADD CORRESPONDING 
ALTER 
CALL 
CANCEL 
CLOSE 
COMPUTE 
CONNECT 
DELETE 
DISPLAY 
DIVIDE 
DISCONNECT 
ENTRY 
ERASE 
EXIT 

EXIT PROGRAM 
FETCH 
FINISH 
FIND 

FREE 
GENERATE 
GET 
GO_TO 

IF 

INITIATE 
INITIALIZE 
INSPECT 
KEEP 
MODIFY 
MOVE 
MOVE CORRESPONDING 
MERGE 
MULTIPLY 
ON 

OPEN 
PERFORM 
READ 
READY 
RELEASE 
RETURN 
REWRITE 


Beispiel 33: Bildung von LSD-Namen 


In dieser Anweisungszeile hat 
— das erste Verb den LSD-Namen S’26IF’, 
— das zweite Verb den LSD-Namen S’26MOV’ und 


— das dritte Verb den LSD-Namen S’26MOV2’ 


SEA 
SET 
SOR 
STA 
STO 
STOR 
STRG 
SUB 
SUBC 
TER 
UNST 
WRI 


SEARCH 
SET 

SORT 
START 
STOP 
STORE 
STRING 
SUBTRACT 
SUBTRACT CORRESPONDING 
TERMINATE 
UNSTRING 
WRITE 
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Beispiel 34: Testlauf mit AID-Kommandos 
Hinweis: Die AID-Kommandos sind ausführlicher in [25] beschrieben 
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© COB1 wird angewiesen, 
— zusätzlich zu den ESD- auch LSD-Informationen zu erzeugen und 
— den Bindemodul in eine PLAM-Bibliothek zu schreiben (um später ein Nachladen der 
LSD-Informationen zu ermöglichen) 


© Der Bindemodul EINXEINS wird zunächst ohne LSD-Informationen gebunden und geladen 


© Es wird versucht, den Programmablauf auf symbolischer Ebene zu verfolgen. Wegen feh- 
lender LSD-Informationen weist AID das Kommando ab. 


GI Das %SYMLIB-Kommando weist AID an, die fehlenden LSD-Informationen aus der 
PLAM-Bibliothek nachzuladen, in der sich der Bindemodul befindet. 


© AID akzeptiert das %YTRACE-Kommando und protokolliert den Programmablauf während 
der Ausführung von zehn Anweisungen. Jede Protokollzeile besteht aus 
— der von COB1 vergebenen Nummer der Anweisungszeile, gefolgt von 
— der Abkürzung des dazugehörigen COBOL-Verbs, sowie 
— einem Kommentar zum Anweisungstyp. 

"Ein-/Ausgaben über Terminal, die das Programm selbst veranlaßt, werden jeweils im An- 
schluß an die Protokollzeilen angezeigt, welche die zugehörigen Ein-/Ausgabeanweisun- 
gen enthalten. 

Nach der Beendigung der Ablaufverfolgung wird das Programm unterbrochen, und es 
können weitere AID-Kommandos eingegeben werden. 


(& An den Anfang des Paragraphen RECHNEN wird ein Haltepunkt gesetzt. Vor der Ausfüh- 
rung der ersten Anweisungen dieses Paragraphen soll AID den Programmlauf unterbre- 
chen und das vereinbarte Subkommando ausführen. In diesem Fall weist das Subkom- 
mando AID an, das Wort „RECHNEN” und die Inhalte der Felder I, ZAHL, ERGEBNIS so- 
wie des I— 1-ten Elementes der ERGEBNISTABELLE auszugeben. 

Nach drei Durchläufen soll AID den Haltepunkt wieder löschen und den Programmlauf 
unterbrechen. 


@ Jedesmal beim Erreichen des Haltepunktes werden die Inhalte der Felder I, ZAHL, ER- 
GEBNIS und ELEMENT (I—1) zusammen mit den symbolischen Feldnamen ausgegeben. 
Dabei werden die zugehörigen Definitionen in der DATA DIVISION des Quellprogrammes 
berücksichtigt. 


Es wird versucht, den Inhalt des (numerisch druckaufbereiteten) Feldes ERGEBNIS in das 
(numerische) Feld ZAHL zu übertragen. Dies ist nach den Regeln der COBOL-MOVE-An- 
weisung unzulässig, und AID weist das Kommando mit einer Fehlermeldung ab. 


© In das Feld ZAHL wird das numerische Literal 85 übernommen. 


(9 Bei ANFANG wird ein Haltepunkt gesetzt. In der zugehörigen Subkommandofolge wer- 
den mehrere Kommandos miteinander verkettet. Sie weisen AlD an, beim Erreichen des 
Haltepunktes 
— das Wort „ANFANG“ auszugeben, 

— einen symbolischen Dump der gesamten DATA DIVISION zu erzeugen und anschlie- 
Bend 
— den Programmlauf wieder fortzusetzen. 


@ Beim symbolischen Dump bereitet AID alle in der DATA DIVISION vereinbarten Datenfel- 
der gemäß ihrem Typ und ihrer Struktur auf und gibt sie zusammen mit ihren aktuellen 
Werten aus, ebenso die COBOL-Sonderregister und die figurativen Konstanten. 
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Prozeßschalter und Benutzerschalter 


Das BS2000 bietet 32 Prozeßschalter (0 bis 31) und 32 Benutzerschalter (0 bis 31) (siehe 
Manual „Kommandosprache“, [2]). Der Benutzer verwendet diese Schalter 


— auf Betriebssystem-Ebene 
— auf COBOL-Programm-Ebene. 


Prozeßschalter können verwendet werden, wenn sich mehrere COBOL-Programme inner- 
halb eines Prozesses verständigen sollen, d.h. z.B. wenn der Ablauf eines Programms von 
Verarbeitungsschritten eines anderen Programms abhängt. Wenn sich dagegen verschie- 
dene Prozesse verständigen sollen, sind Benutzerschalter zu verwenden. 


Ein COBOL-Programm kann den Status von Prozeß- oder Benutzerschaltern 


— verändern 
— abfragen. 


Folgende Schlüsselwörter stehen zur Verfügung (siehe Manual „COB1 Beschreibung“, [1]): 


— für die Prozeßschalter TSW-0,... TSW-31; 
— für die Benutzerschalter USW-0,... USW-31. 


Beispiel 34a: Verwendung eines Prozeßschalters 


Eine DO-Prozedur sieht verschiedene Verarbeitungsvarianten vor, abhängig vom Status der 
Prozeßschalter 12 und 13. Sie werden sowohl auf Betriebssystem-Ebene als auch auf Pro- 
gramm-Ebene bedient: Prozeßschalter 12 kann zunächst auf Betriebssystem-Ebene gesetzt 
werden, um die Verarbeitung innerhalb der folgenden DO-Prozedur zu steuern. Dort wird 
auf Programm-Ebene sein Zustand abgefragt; bei bestimmter Programmverarbeitung wird 
Prozeßschalter 13 gesetzt, der anschließend auf Betriebssystem-Ebene abgefragt wird. Aus- 
schnitt aus dem Dialogprozeß: 
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Prozeßschalter 12 erhält den Status ON auf Betriebssystem-Ebene. 

Ausschnitt aus einer DO-Prozedur. 

Das COBOL-Programm PROG-1 (Lademodul) soll ablaufen. 

Im SPECIAL-NAMES-Paragraphen wird der Prozeßschalter 12 mit TSW-12 vereinbart 
und die Beziehung zu Benutzerwörtern hergestellt. 

Das Benutzerwort SCHALTER-12 wird verwendet, wenn der Prozeßschalter 12 verändert 
werden soll; das Benutzerwort EIN-12 dient zur Abfrage. Entsprechendes gilt für den 
Prozeßschalter 13. | 

Der ON-Status wird abgefragt, PERFORM A in Abhängigkeit von (I) vor PERFORM B 
ausgeführt. 

Prozeßschalter 13 erhält auf Programm-Ebene den Status ON, falls eine bestimmte Ver- 
arbeitungsart — angezeigt durch den Inhalt von FELD — abgeschlossen wurde. 
Verzweigung zum Prozedurende, falls PROG-1 den Prozeßschalter 13 nicht gesetzt hat; 
siehe N). 

Andernfalls wird zusätzlich zum PROG-1 PROG-2 ausgeführt. 

Rücksetzen beider Prozeßschalter. 

Ende der DO-Prozedur. 

Fortsetzung des Dialogbetriebs. 


© 
© 
© 
© 
© 


© O © 


00 0O 
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Beispiel 34b: Verwendung eines Benutzerschalters 


Der folgende Dialogprozeß A erzeugt zwei Stapelprozesse B und C. Im Prozeß B wird eine 
ISAM-Datei aktualisiert. Erst danach kann Prozeß C ablaufen. Benutzerschalter 21 wird in 
drei verschiedenen Prozessen verwendet. Einmal wird er auf Programm-Ebene bedient, 
zweimal auf Betriebssystem-Ebene. Ausschnitt aus dem Dialogprozeß A: 


Mit der Datei B.STAPEL (ENTER-Datei) wird der Stapelprozeß B erzeugt. 

Das COBOL-Programm COB-ISAM (Lademodul) soll ablaufen. 

Die Datei ISAM-DATEI wird aktualisiert. 

Der Status ON des Benutzerschalters 21 markiert das Ende der Aktualisierung (im Pro- 
zeß B). 

Mit der Datei C.STAPEL (ENTER-Datei) wird der Stapelprozeß C erzeugt. 

Prozeß C wartet solange, bis im Prozeß B der Benutzerschalter 21 den Status ON erhält 
(siehe auch Manual „Kommandosprache‘“, [2]). | 

Das COBOL-Programm FOLGE-PR soll ablaufen; es benötigt die im Prozeß B aktuali- 
sierte ISAM-Datei. 

Benugzerschalter 21 erhält den Status OFF, um das Ende von Prozeß C zu markieren. 
Der Status des Benutzerschalters 21 wird im Dialogprozeß A abgefragt. 


© 
© 
© 
© 
© 


Ge © 
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| © 5.5 Verwendung von Jobvariablen 


Die „Jobvariablen“ bilden ein eigenes Softwareprodukt (ab BS2000 V7.1). Sie sind im Ma- 
nual „Jobvariablen” [22] beschrieben. — Hier in diesem Abschnitt werden speziell dem 
COBOL-Programmierer Anwendungsmöglichkeiten für Benutzerjobvariablen aufgezeigt. 


Eine Jobvariable (JV) gestattet Informationsaustausch zwischen 


— COBOL-Programm und Kommandosprache 
— mehreren Programmen. 


Ein COBOL-Programm liest eine JV mit der Anweisung ACCEPT, beschreibt/verändert eine 
JV mit der Anweisung DISPLAY (siehe COB1 Beschreibung). Die Anweisungen ACCEPT und 
DISPLAY müssen sich auf Merknamen beziehen, die im SPECIAL-NAMES-Paragraphen der 
CONFIGURATION SECTION (ENVIRONMENT DIVISION) mit Funktionsnamen verknüpft 
sein müssen. Diese Funktionsnamen lauten 


JV-linkname 


Für „linkname” vergibt der Programmierer höchstens 7 Zeichen. Auf Kommandoebene wird 
daraus der Linkname „*linkname” gebildet. Dieser wird mit dem Katalognamen der JV ver- 
bunden; Kommando /DCLJV jvname,LINK = *linkname. 


Eine JV muß entweder mit dem Kommando /CATJV oder mit /DCLJV eingerichtet werden. 
© Weitere Kommandos sind /SETJV (Beschreiben), /ERAJV (Löschen), /GETJV (Lesen) u.a. 


Ein COBOL-Programm kann immer nur auf den gesamten Inhalt einer JV, nicht aber auf Teil- 
zeichenfolgen zugreifen — im Gegensatz zu Kommandos. DISPLAY verändert (bzw. 
beschreibt) den Inhalt einer JV in der Länge des Ausgabefeldes. Unterstützt das Betriebs- 
system Jobvariablen nicht (also BS2000 ohne JV), so verursacht der erste Zugriffsversuch 
die Meldung 9082 (SYSOUT); das ACCEPT-Feld enthält dann /* ab Spalte 1. 


Unterstützt das Betriebssystem Jobvariablen, ist jedoch der Zugriff fehlerhaft, so kommt die 
Meldung 9088; wurde über eine ACCEPT-Anweisung zugegriffen, so enthält das ACCEPT- 
Feld danach ab Spalte 1 '/*'. 


Beispiel: Kommunikation über Jobvariable 


Im folgenden Dialogprozeß wird die JV KONTROLLE.ABLAUF sowohl von einem 
COBOL-Programm als auch auf Kommandoebene verwendet. Abhängig vom Inhalt der JV 
kann das Programm unterschiedliche Verarbeitungszweige durchlaufen und ggf. den Inhalt 
der JV aktualisieren. Auch ein anderer Prozeß — selbst unter einer anderen Benutzerken- 
nung — könnte auf diese JV zugreifen, Voraussetzung dazu: /CATJV..., SHARE=YES. 


/DCLJV KONTROLLE. ABLAUF, LINK=* AKTUELL 
/EXEC PROG. ARBEIT-1 


OO 


Programmausschnitt: 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SPECIAL-NAMES. 
JV-AKTUELL IS FELDJV. ® 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
© 77 TAGDAT PIC X(6). © 
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01 INHALT JN. 
05 AKT DAT PIC X(6). 
05 FILLER PIC X(20). 
05 AKT-NUM PIC 9(4). 


GO 


PROCEDURE DIVISION. 
ACCEPT INHALT-JV FROM FELDJV. 
ACCEPT TAGDAT FROM DATE. 
IF AKT-DAT NOT EQUAL TAGDAT 
PERFORM ARBEIT 
ELSE PERFORM SCHON-AKTUELL. 


CG 


ARBEIT. 


MOVE TAGDAT TO AKT-DAT. 
ADD 1 TO AKT-NUM. 
DISPLAY INHALT-JV UPON FELDJV. 


O00 


SCHON- AKTUELL. 
DISPLAY “ENDE AKTUALISIERUNG” 
UPON TERMINAL. ® 


/GETJV KONTROLLE. ABLAUF d 
%820926 AKTUALISIERUNG NR. 1679 


© Der JV-Katalogname KONTROLLE.ABLAUF wird mit dem Linknamen * AKTUELL ver- 
knüpft. 

© Aufruf des COBOL-Programms. 

® Der Funktionsname JV-AKTUELL wird mit dem Merknamen FELDJV verknüpft. 

GO Das Feld TAGDAT wird für das Tagesdatum reserviert. 

© Feldvereinbarungen für den Inhalt der JV: 

© AKT-DAT ist für das Datum vorgesehen. 

© Hier enthält die JV einen Text, den das COBOL-Programm nicht verwendet. 

AKT-NUM ist für eine Kontrollnummer vorgesehen. 

© Einlesen der JV. 

(9 Einlesen des Tagesdatums. 

®© Vergleich des Datums in der JV mit dem Tagesdatum: 
Bei Gleichheit wird die Prozedur ARBEIT übersprungen, welche den Inhalt der JV 
aktualisiert. 

E Eintrag des Tagesdatums in die JV. 

(3 Hochzählen der Kontrollnummer. 

(9 Rückschreiben der JV. | 

® Ausgabe auf dem Bildschirm zur Kontrolle des Programmablaufs. 

(9 Auf Kommandoebene kann die JV eingesehen werden: Datum und Nummer der letzten 
Aktualisierung sind darin vermerkt. 
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Zugriff auf Übersetzer- und Betriebssysteminformationen 


Der COBOL-Programmierer kann mit Hilfe der ACCEPT-Anweisung über Informationen des 
Übersetzers und des Betriebssystems verfügen. Es sind Informationen über 


die Übersetzung des Quellprogramms, 

die seit dem LOGON-Kommando verbrauchte CPU-Zeit, 
den Prozeß, unter dem das Objektprogramm abläuft, und 
die Datenstation. 


Durch den Eintrag 
funktionsname IS merkname 


im SPECIAL-NAMES-Paragraphen der ENVIRONMENT DIVISION und durch die Ausführung 
der Anweisung 


ACCEPT bezeichner FROM merkname 


werden die durch funktionsname angegebenen Informationen nach bezeichner übertragen. 
funktionsname muß dabei eines der folgenden Wörter sein: 


COMPILER-INFO 
CPU-TIME 
PROCESS-INFO 
TERMINAL-INFO 


Die folgende Tabelle gibt für jeden Funktionsnamen Aufschluß darüber, 


a) welche Informationen nach Ausführung der ACCEPT-Anweisung in bezeichner zur Verfü- 
gung stehen und 


b) wie die Informationen auf die Zeichenpositionen des Bezeichners verteilt sind. 


COB1 (BS2000) V2.2A Benutzerhandbuch U254-J-255-1 5-21 


Übersetzer-/Betriebssysteminformationen 


Tabelle: Informationsarten für die verschiedenen Funktionsnamen 


Zeichenposition(en) 


1—10 


11—18 


19—26 


27—56 


Zeichenposition(en) 


1—9 


Zeichenposition(en) 


22—32 


Zeichenposition(en) 


5-22 


Art der Informationen für COMPILER-INFO 
Version des Compilers 

Format: Vzz.zbzzzz 

z = Ziffer oder Leerzeichen, 

b = Buchstabe oder Leerzeichen, 

(z.B. „V01.2A “*) 


Datum der Übersetzung 
Format: JJ-MM-TT (z.B. „99-12-31*) 


Uhrzeit der Übersetzung 
Format: HH-MM-SS (z.B. „23-59-59*) 


Die ersten 8 Zeichen des PROGRAM-ID-Namens 


Art der Information für CPU-TIME 


CPU-Zeit in Millisekunden 


Art der Informationen für PROCESS-INFO 


Prozeßtyp 
Inhalt: B für Batch 
D für Dialog 


Prozeßfolgenummer 
Benutzerkennung 
Abrechnungsnummer 
Privilegierungszeichen des Prozesses 
Inhalt: U für Benutzer 


S für Systemverwalter 


Betriebssystemversion 
Format: Vzz.zbzzzz (z.B. „V07.1 e 


Art der Informationen für TERMINAL INFO 
Stationsname 
Anzahl der Zeichen pro physikalische Zeile 


Anzahl der physikalischen Zeilen, die ausgegeben werden können, ohne 
daß die Informationsüberlaufkontrolle anspricht. 


Anzahl der Zeichen, die ausgegeben werden können, ohne daß die Infor- 
mationsüberlaufkontrolle anspricht. 


Gerätetyp (z.B. „8160”) 
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Beispiel: Datenstruktur für Compiler-, Prozeß- und Terminal-Informationen 
bzw. CPU-Zeit, abrufbar durch ACCEPT-Anweisung: 
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Programmierhinweise 


1. Die mit ACCEPT angeforderte Information wird unabhängig vom TYP von bezeichner 
übertragen. Sie wird abdruckbar, linksbündig und der Länge von bezeichner entspre- 


chend abgelegt. Ist bezeichner zu lang, so werden die durch die ACCEPT-Anweisung 


nicht beschriebenen Zeichenpositionen von bezeichner mit Leerzeichen belegt. Ist be- 
zeichner zu kurz, so werden nur so viele Zeichen übertragen, wie bezeichner Zeichenposi- 


tionen hat. 


2. Die Informationen über die Datenstation sind selbstverständlich nur im Teilnehmerbe- 


trieb sinnvoll. 


Der Gerätetyp bezeichnet in diesem Zusammenhang den für die Leitung generierten Ge- 
rätetyp. Folgende Typen sind dem Übersetzer bekannt (siehe auch „TMODE“ im Manual 


Makroaufrufe [24]): 


8103 
8159 
8153 
HOST 
8151 
8152 
8110 
8161 
8121 
PT89 
T100 


8122 
8162 
8160 
8124 
8167 
AP 

9758 
9003 
9002 
9751 
9752 


Sollte ein Gerätetyp dem Übersetzer nicht bekannt sein, so werden die entsprechenden Zei- 


chenpositionen mit Leerzeichen belegt. 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 


6.1 


Testhilfezeilen 


Programmierhinweise 


Programmierbare Testhilfen 


Zum Testen von COBOL-Programmen stehen neben betriebssystemspezifischen Testhilfen 
(Dialogtesthilfe IDA) auch COBOL-Sprachelemente bereit. Es sind dies: 


— Testhilfezeilen 

WITH DEBUGGING MODE-Klausel 
— EXHIBIT-Anweisung 
— TRACE-Anweisung 


Testhilfezeilen sind COBOL-Standard. Die anderen Anweisungen sind Nicht-Standard. 


Testhilfezeilen 


Testhilfezeilen sind Zeilen im COBOL-Quellprogramm, die für Testzwecke verwendet wer- 
den sollen. Nach der Testphase können diese Zeilen ungeändert im Programm gelassen 
werden; es muß nur die WITH DEBUGGING MODE-Klausel aus dem SOURCE-COMPUTER- 
Paragraphen entfernt werden. 


Ein D im Anzeigenbereich (Spalte 7) kennzeichnet eine Quellprogrammzeile als Testhilfe- 
zeile. 

Bei Angabe der WITH DEBUGGING MODE-Klausel im SOURCE-COMPUTER-Paragraphen 
behandelt der Übersetzer Testhilfezeilen als normale Anweisungszeilen. Fehlt dagegen 
diese Klausel, so behandelt der Übersetzer Testhilfezeilen als Kommentarzeilen. 


Der Inhalt einer Testhilfezeile muß so gewählt sein, daß bei der Übersetzung unabhängig 
von der Angabe der WITH DEBUGGING MODE-Klausel ein syntaktisch korrektes Programm 
entsteht. Testhilfezeilen sind im Quellprogramm erst nach dem OBJECT-COMPUTER-Para- 
graphen erlaubt. 


Mehrere aufeinanderfolgende Testhilfezeilen sind zulässig. Die Fortsetzung von Testhilfezei- 
len ist gestattet; jedoch muß auch die Fortsetzungszeile ein D in Spalte 7 enthalten. Unzu- 
lässig ist die Trennung von Zeichenfolgen über mehrere Zeilen. 


Format der WITH DEBUGGING MODE-Klausel: 
WITH DEBUGGING MODE 
Diese Klausel ist Teil des SOURCE-COMPUTER-Paragraphen. 
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6.1.2 


EXHIBIT-Anweisung 


Die EXHIBIT-Anweisung gibt aktuelle Werte von Datenfeldern an jeder beliebigen Stelle des‘ 
Benutzerprogramms nach SYSLST aus. 


Format: 


NAMED i 
pnpa nee bezeichner 
poeri CHANGED vamen! | nichtnumerisches Si Ko 


CHANGED 


Die Ausgabe ist bei den drei Varianten der EXHIBIT-Anweisung verschieden: 
a) EXHIBIT NAMED ... 
Bei jeder Ausführung einer EXHIBIT NAMED-Anweisung wird folgendes ausgegeben: 


1. die Namen der in der Anweisung angegebenen Bezeichner mit ihren aktuellen Werten; 
2. alle in der Anweisung angegebenen nichtnumerischen Literale. 
b) EXHIBIT CHANGED NAMED... 

Bei der Ausführung einer EXHIBIT CHANGED NAMED-Anweisung wird folgendes ausge- 

geben: 

1. Wird die Anweisung zum ersten Mal ausgeführt, so wird der Name jedes in der Anwei- 
sung angegebenen Bezeichners. sowie sein aktueller Wert ausgegeben. Bei jeder fol- 
genden Ausführung werden Namen und Werte nur dann ausgegeben, falls sich inzwi- 
schen Werte verändert haben. 

2. Alle in der Anweisung angegebenen nichtnumerischen Literale. 


c) EXHIBIT CHANGED ... 


Bei der Ausführung einer EXHIBIT CHANGED-Anweisung wird folgendes ausgegeben: 

1. Wird die Anweisung zum ersten Mal ausgeführt, so wird der Name jedes in der Anwei- 
sung angegebenen Bezeichners sowie sein aktueller Wert ausgegeben. Bei jeder fol- 
genden Ausführung werden nur inzwischen veränderte Werte ausgegeben. 

2. Alle in der Anweisung angegebenen nichtnumerischen Literale. 


Regeln: 
— Bezeichner darf kein Sonderregister sein, außer TALLY. 
— Bezeichner mit variabler Länge sind nicht erlaubt. 


— Die Ausgabe für jeden in einer EXHIBIT NAMED- oder EXHIBIT CHANGED NAMED-An- 
weisung angegebenen Bezeichner hat das Format: 


Leerzeichen 

Name des Bezeichners (einschließlich eventuell angegebener Kennzeichner) 
Leerzeichen 

Gleichheitszeichen 

Leerzeichen 

Wert des Bezeichners zur Ausführungszeit 


— Ein Literal in der EXHIBIT-Anweisung wird bei der Ausgabe von Leerzeichen eingeschlos- 
sen. 

— Jede Ausgabe von EXHIBIT-Anweisungen wird in festem, spaltengerechtem Format er- 
zeugt. 


— Numerische Werte haben Ausgabeformat, wie in der DISPLAY-Anweisung beschrieben 
(siehe Manual „COB1 Sprachbeschreibung‘”, [1]). 


— Enthalten zwei verschiedene EXHIBIT CHANGED- oder EXHIBIT CHANGED NAMED-An- 
weisungen gleiche Bezeichner, so verwenden sie verschiedene Bereiche für Wertesiche- 
rung (die Wertesicherung ist anweisungsbezogen). Abhängig vom Programmablauf kön- 
nen die zum Vergleich sichergestellten Werte eines Bezeichners oder mehrerer Bezeich- 
ner für die zwei Anweisungen verschieden sein. 
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— Bei zwei oder mehr Bezeichnern in einer EXHIBIT CHANGED- oder EXHIBIT CHANGED 
NAMED-Anweisung werden bei jeder Ausführung nur die geänderten Werte ausgege- 
ben. Reservierte Stellen nicht ausgegebener Werte enthalten Leerzeichen. 


— Die Länge für die Ausgabe aller Operanden darf die maximale Länge eines logischen Da- 
tensatzes von SYSLST nicht überschreiten. 


Beispiel 34c: Verwendung der verschiedenen EXHIBIT-Anweisungen 


Die Wirkung der drei verschiedenen EXHIBIT-Anweisungen wird gegenübergestellt. In allen 
Fällen lauten die Bezeichner I, J, K; nichtnumerisches Literal ist EINGABE-WERTE. Jede 
EXHIBIT-Anweisung wird dreimal ausgeführt. Den Wert von I ändert das Programm nicht; 
die Werte von J und K sind bei der dritten Ausführung verändert. Stets wird das nichtnume- 
rische Literal ausgegeben. 


Ausgabe der EXHIBIT NAMED-Anweisung: 
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6.1.3 TRACE-Anweisung 


Die Anweisung READY TRACE aktiviert die Testüberwachung. 

Die Anweisung RESET TRACE beendet die Testüberwachung. 

Testüberwachung heißt: Die Namen aller Kapitel und Paragraphen werden in der Reihen- 
folge ihrer Ausführung über SYSLST aufgelistet. 


Format: 


READY 
| RESET | TRACI 


Regeln: 


— READY TRACE aktiviert die Testüberwachung für alle folgenden Kapitel und Paragra- 
phen. 


— RESET TRACE beendet die Wirkung einer vorangegangenen READY TRACE-Anweisung. 


— Bei der Programmausführung mehrmals angesprochene Kapitel- bzw. Paragraphenna- 
men werden auch mehrmals ausgegeben. 
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Leerseite durch den Nachtrag vom August 1986 
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6.2 Mehrfachbenutzbare Programme 


6.2.1 Allgemeines 


Häufig greifen gleichzeitig mehrere Prozesse auf ein gemeinsames Programm zu. Falls jeder 
Prozeß sein eigenes, vollständiges Programm lädt, kann das den Rechner stark belasten. 
Dies vermeidet man, indem man dieses Programm mehrfachbenutzbar (shareable) erklärt. 


Mehrfachbenutzbare Programme werden wie folgt erzeugt: 
— Der Anwender schreibt ein segmentierbares Programm. 


— Der COB1-Übersetzer erzeugt “reentrant Code“ (= wiederverwendbaren Code) aus allen 
Anweisungen der Procedure Division (LC7) in verschiedenen Segmenten. 


— Der Systemverwalter macht mit dem SHARE-Kommando bestimmte Segmente (Pro- 
gramm-Moduln) aus LC7 mehrfachbenutzbar. Alle übrigen LC-Abschnitte (LCO bis LC6 
und LC8) sind nicht mehrfachbenutzbar. 


6.2.2 Segmentierung 


© Zweck der Segmentierung ist es, ein Programm in Teile — sog. Segmente — zu zerlegen. 


Ein segmentiertes Programm (siehe [1]) besteht aus einem speicherresidenten Grundseg- 
ment (auch Wurzelsegment) und einem oder mehreren überlagerbaren Segmenten. Dies 
sind entweder feste oder unabhängige Überlagerungssegmente. Nur aus unabhängigen 
Überlagerungssegmenten können mehrfachbenutzbare Moduln gemacht werden. 


Ein Programm wird segmentiert durch = 


— Einteilung in Kapitel (Sections), die Section-Nummern tragen (0... 99) 
— die SEGMENT-LIMIT-Klausel (1...49). 


Die SEGMENT-LIMIT-Klausel bestimmt, welche Programmteile zum Grundsegment gehören 
und welche Programmteile feste Überlagerungssegmente sein sollen (Näheres siehe [1]). 
Aus Kapiteln mit Section-Nummern < Angabe in der SEGMENT-LIMIT-Klausel wird genau 
ein Grundsegment gebildet. Kapitel mit Section-Nummern zwischen SEGMENT-LIMIT und 
49 definieren feste Überlagerungssegmente. Fehlt die SEGMENT-LIMIT-Klausel, so gehören 
alle Kapitel mit Nummern <50 zum Grundsegment. Hingegen bestimmen Kapitel mit Sec- 
tion-Nummern 250 unabhängige Überlagerungssegmente. Jedes Überlagerungssegment 
wird aus Kapiteln gleicher Section-Nummer erzeugt. 


Aus je einem Segment erzeugt der COB1-Übersetzer genau einen Bindemodul, der in die 
temporäre Bindemoduldatei % eingetragen wird. Das Grundsegment bildet dabei den 


© Hauptmodul. 


Der Name des Hauptmoduls leitet sich vom Programmnamen aus der PROGRAM-ID ab. 
Daraus ergeben sich die Namen aller übrigen Moduln durch Anfügen der jeweils zugehöri- 
gen Section-Nummer (im folgenden mit nın, bezeichnet). 


Hauptmodulname Modulname 
A A Datz 

XX XX Nına. 

XXX XXX NıNna 
XXXX | XXXX nun: 
XXXXX XXXXX nun: 
XXXXXX bis XXXXXXY XXXXXX nun: 
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Beispiel 35: Segmentierung 


Daraus erzeugt COB1 zusätzlich zum Hauptmodul SEGMT die Moduln SEGMT30 und 


SEGMT55: | | 

A SECTION 30 Segment 30 mor SEGMT3Q 

C SECTION 30 " (fest, überlagerbar) | 

B SECTION55 ——> Segment 55 >. SEGMTS55 
(unabhängig, über- 


lagerbar) 


Da die letzten 2 Zeichen immer nın; enthalten, ist vom Anwender dafür Sorge zu tragen, daß 
keine mehrfachen Namensdefinitionen auftreten. 
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Beispiel 36: Auszüge aus einem segmentierten Programm | 


Hinweis: 


$ 


Die erzeugten Objektmoduln kann man anhand der Protokolle eines LMR-Laufes (vgl. Bei- 
spiel 26b, S. 3-1) und eines Binder-Laufes (vgl. Beispiel 28, S. 4-9) kontrollieren. Ee 
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Segmentierung 


6.2.3 
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Shared Code 


Segmente mit Section-Nummer >49 können mehrfachbenutzbar gemacht werden. Der An- 
wender geht dabei so vor: 


— Die nach obigem Schema vergebenen Modulnamen gestatten, daß jene Moduln, die 
mehrfachbenutzbar gemacht werden sollen, in einer Bindemodulbibliothek mit Hilfe von 
LMR [3] oder LMS [21] abgelegt werden. 


— Diese Moduln erklärt der Systemverwalter als “shareable” (mit dem SHARE-Kommando). 
— Sie werden mit folgenden Kommandos aufgerufen: 
falls der vorgebundene Objektmodul in der Bibliothek steht: 
/EXEC (modulname,bibliotheksname) 


b) falls der vorgebundene Objektmodul in der *-Datei steht und mehrfachbenutzbare 
Moduln von der Modulbibliothek hinzugebunden werden: 


/SYSFILE TASKLIB = dateiname 
/EXEC * 


Shared-Code-Segmente — also mehrfachbenutzbare Überlagerungssegmente — werden 
geladen, sobald der erste Prozeß in einer BS2000-Sitzung sie anfordert. Sie bleiben dann bis 
zum Ende der Sitzung im Klasse-4-Speicher des Systems für alle Prozesse verfügbar. Alle 
nicht mehrfachbenutzbaren Teile eines Programms werden pro Prozeß bzw. pro Anwender 
in den Klasse-6-Speicher geladen. 


Das folgende Bild veranschaulicht Programmläufe ohne bzw. mit Shared Code. 
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© Programmläufe ohne SHARED CODE: 
Prozeß A | Prozeß B Prozeß C 


Modul XY Modul XY Modul XY 


L Klasse 6Speicher _| L Klasse6Speicher _] L Klasse 6 Speicher _| 
für Prozeß A für Prozeß B für Prozeß C 


Programmläufe mit SHARED CODE: 
Prozeß A Prozeß B Prozeß C 


© Modul XY Modul XY Modul XY 


L_ Klasse 6 Speicher ad ( Klasse 6 Speicher ` ! | Klasse 6 Speicher SS 
für Prozeß A für Prozeß B für Prozeß C 


Modul 
XY 80- 
(ablaufinvariant) 


im Klasse 4 Speicher 
des Betriebssystems 


€ Bild 6-1 


Shared Code 
Oben: Der Modul XY 80 wird dreimal geladen (Klasse-6-Speicher). 
Unten: Der Modul XY 80 wird nur einmal geladen (Klasse-4-Speicher). 
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6.2.4 Mehrfachbenutzbarkeit des Ablaufzeitsystems 


Das COB1-Laufzeitsystem kann teilweise mehrfachbenutzbar in den Arbeitsspeicher gela- 
den werden und damit von allen parallellaufenden COB1-Programmen gleichzeitig benutzt 
werden (Speicherersparnis). 

Zur Entlastung der SHARE-Tabelle (siehe Dienstprogramm DLL) werden alle mehrfach-be- 
'nutzbaren Moduln in einem Großmodul zusammengefaßt. Mit dem SHARE- und LOAD- 
Kommando kann der Systemverwalter diesen und einen Verbindungsmodul in Klasse-4- 
Speicher laden. 

Der Ablauf der Programme muß mit Hilfe des DLL erfolgen. 


Die normalen Module des COB1-Ablaufzeitsystems und die mehrfach-benutzbaren Moduln 
dürfen nicht zusammen in einer Bibliothek sein. 
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© 6.3 Programmverknüpfungen 


Bei der Erstellung von Programmsystemen ist es oftmals zweckmäßig, die Komponenten in 
verschiedenen, auf die jeweiligen Teilprobleme zugeschnittenen Programmiersprachen zu 
schreiben. 


Zu den erforderlichen Programmverknüpfungen dienen Verfahren und Konventionen, die im 
folgenden beschrieben werden. 

Übersicht: | 

Es sind folgende Programmverknüpfungen beschrieben: 


1. COBOL-COBOL 
2. COBOL-Assembler (Assembler-COBOL) 


Hinweis: Zur Verwendung von FOR1-Programmen als COBOL-Unterprogramme siehe 
FORT Benutzerhandbuch“ [16]. 


6.3.1 Programmverknüpfungen COBOL-COBOL 


© (Siehe auch Kapitel Programmkommunikation in der COB1-Beschreibung [1]). 


Der Aufruf eines Unterprogramms erfolgt gemäß ANS 74 COBOL-Standard durch folgende 
Anweisung: 


CALL literal [USING name . . .] 


Wobei literal der „Unterprogrammname“ ist und name entweder Datenname, Dateiname 
oder Prozedurname bedeutet. 


Der Unterprogrammname muß mit einem Alphazeichen beginnen, darf nur Buchstaben und 
Ziffern enthalten und maximal 8 Zeichen lang sein. 


Die USING-Liste darf maximal 216 Operanden enthalten. 
Ist name ein Datenname, wird dem Unterprogramm dessen Adresse zur Verfügung gestellt. 


Jeder in der USING-Liste des aufrufenden Programms angegebene Datenname muß in der 

FILE SECTION, der WORKING-STORAGE SECTION oder der LINKAGE SECTION definiert 

sein. Er kann jede Stufennummer außer 88 haben. 

Ist name ein Dateiname, wird dem Unterprogramm die Adresse des zugehörigen FCB zur 
© Verfügung gestellt. 

Ist name ein Prozedurname (Kapitel oder Paragraph), wird die Anfangsadresse dieser Proze- 

dur übergeben. 


Ein aufgerufenes Programm kann CALL-Anweisungen enthalten, jedoch keine, die direkt 
oder indirekt das aufrufende Programm aufrufen. 


Es wird noch folgendes Aufrufformat unterstützt: 


ENTER LINKAGE. 


CALL unterprogrammname [USING name...] 
ENTER COBOL. 


Einsprung 


Der Einsprung in ein Unterprogramm erfolgt gemäß ANS’74 COBOL-Standard durch folgen- 
de Anweisung: 


PROCEDURE DIVISION [USING data-name ...]. 
wobei data-name gleich datenname ist. 


© Die USING-Liste des Einsprungs muß gleichviele Operanden wie die des Aufrufs enthalten. 
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Jeder in der USING-Liste des aufgerufenen Programms angegebene Datenname muß in 
der LINKAGE SECTION definiert sein und darf nur die Stufennummern 01 oder 77 haben. 


Die Zuordnung der übergebenen Operanden erfolgt über ihre Stellung in der Operandenliste. 
Darüberhinaus können weitere Einsprungpunkte wie folgt definiert werden (Erweiterung 
des ANS’74 bzw. ANS’68 COBOL-Standards): 

1. ENTRY einsprungname [USING data-name ...]. 


2. ENTER LINKAGE. 
ENTRY einsprungname [USING data-name ...]. 
ENTER COBOL. 


Diese Anweisungen können an beliebiger Stelle innerhalb der PROCEDURE DIVISION auf- 
geführt werden. 


Bei diesen Formaten ist zu beachten, daß der Unterprogrammname vom Einsprungnamen 
verschieden sein muß und beim Aufruf in der CALL-Anweisung der Einsprungname zu 
verwenden ist. 


Rücksprung 
Der Rücksprung erfolgt gemäß ANS’74 COBOL-Standard durch folgende Anweisung: 
EXIT PROGRAM. 


Diese Anweisung muß die einzige in einem Programmsatz sein. Dieser Programmsatz muß 
der einzige in einem Paragraphen sein. 


Unterstützt wird noch folgendes Format (DOD-COBOL bzw. ANS’68 COBOL-Standard): 


ENTER LINKAGE. 
RETURN. 
ENTER COBOL. 


Datenkonventionen 


Im aufgerufenen Programm werden die in der USING-Liste angegebenen Operanden ent- 
sprechend ihren in der LINKAGE SECTION angegebenen Datenbeschreibungen behandelt. 


Hinweis: 

Es werden nur die Adressen der Daten übergeben (call by reference), jedoch keine Angaben 
über deren Format und Ausrichtung. Für die notwendige und richtige Ausrichtung, sowie die 
formatgerechte Verarbeitung der übergebenen Daten ist der Programmierer selbst verant- 
wortlich. 


Konventionen zur Unterprogrammtechnik 
Bei der Verknüpfung von COBOL-Programmen gelten folgende Konventionen: 


1. Das aufrufende Programm stellt einen Sicherstellungsbereich zur Verfügung. 


2. Das aufrufende Programm versorgt die Parameteradreßliste und die Mehrzweckregister 
entsprechend den Registerkonventionen. 


3. Das aufgerufene Programm sichert alle Mehrzweckregister mit Ausnahme von Register 
13 im Sicherstellungsbereich des aufrufenden Programms. 


4. Das aufgerufene Programm führt die Vorwärts- und Rückwärtsverkettung der Sicher- 
stellungsbereiche durch. 


5. Vor dem Rücksprung lädt das aufgerufene Programm die Mehrzweckregister aus dem 
Sicherstellungsbereich des aufrufenden Programms. 
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6. Das COBOL-Sonderregister RETURN-CODE dient zur Verständigung zwischen getrennt 
© übersetzten COBOL-Moduln, die zum Ablauf in einem ladefähigen Programm zusammen- 
gebunden wurden. Das Sonderregister existiert nur einmal im Programm und ist intern 
als vierstelliges Datenfeld (PIC S9(4) COMP SYNC VALUE ZERO) definiert. RETURN- 
CODE kann während des Ablaufs beliebig von einzelnen Moduln abgefragt oder verän- 
dert werden. Bei Beendigung des Programmlaufs wird vom Laufzeitsystem überprüft, ob 
RETURN-CODE auf Null steht. Ist das nicht der Fall, wird die Fehlermeldung 9040 ausge- 
geben. Wurde das Programm innerhalb einer Prozedur aufgerufen, verzweigt das System 
zum nächsten STEP-, ABEND-, ABORT-, ENDP- oder LOGOFF-Kommando. 


Registerkonventionen 


Die nachfolgende Tabelle gibt eine Übersicht über die Registerversorgung, die das auf- 
rufende Programm vor dem Ansprung des aufgerufenen Programms durchführt. 


Tabelle: Registerbenutzung 


Register | Registerverwendung Inhalt 
© nummer 


(6) Arbeitsregister Dient bei Verknüpfung von COBOL-Moduln als Register zur 
Koordinierung 
1 Parameterübergabe Adresse der Parameteradreßliste 
13 Sicherstellungsbereich | Adresse des Sicherstellungsbereiches des aufrufenden 
Programms 
14 Rücksprung Adresse des Rückkehrpunktes ins aufrufende Programm. 
15 Einsprungpunkt Adresse des Einsprungpunktes im aufgerufenen Programm. 


Aufbau des Sicherstellungsbereiches 


Die Struktur des Sicherstellungsbereiches im aufrufenden Programm ist wie folgt: 


Wort Inhalt 
1 wird von COBOL intern verwendet 
2 enthält die Anfangsadresse des Sicherstellungsbereiches des aufrufenden Programms. 
Im ersten aufrufenden Programm ist der Inhalt dieses Feldes 0. 
3 enthält die Anfangsadresse des Sicherstellungsbereiches des aufgerufenen Programms. 
Im letzten aufgerufenen Programm ist der Inhalt dieses Feldes nicht verwertbar. 
4 Register 14 
5 Register 15 
6 Register O 
18 Register 12 


Aufbau der Operandenadreßliste 


Die Operandenadreßliste besteht aus Adreßkonstanten. Diese enthalten die Adressen der in 
der Operandenliste aufgeführten Operanden. Die Adreßkonstanten stehen in derselben 
Reihenfolge, wie die Operanden in der Operandenliste. Die letzte Adreßkonstante wird durch 
eine 1 im höchstwertigen Bit gekennzeichnet. 
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Programmverknüpfung COBOL-ASSEMBLER (ASSEMBLER-COBOL) 


Beim Aufruf von Unterprogrammen, die in Assembler geschrieben sind, oder beim Aufruf 
von COBOL-Unterprogrammen aus Assemblerhauptprogrammen, sind bestimmte Konven- 
tionen zu beachten. Die zur Verknüpfung notwendigen Sicherstellungsbereiche, ihre Lage 
und Adressierungstechnik werden hier näher erläutert. Außerdem wird die Übergabe bzw. 
Übernahme von Operanden mitsamt den zugehörigen Registerkonventionen beschrieben. 


Allgemeines 


Ein COBOL-Programm, das CALL- oder ENTRY-Anweisungen enthält oder vom Übersetzer 
als Unterprogramm erkannt wird, veranlaßt automatisch die Generierung der notwendigen 
BefehlsfolgenundSicherstellungsbereiche zur Verknüpfung dieses Programmes mit anderen 
Programmen. Programme, die in Assembler geschrieben sind, müssen den nachfolgend 
beschriebenen Verknüpfungskonventionen genügen, damit sie in Verbindung mit COBOL- 
Programmen, als rufende oder aufgerufene Programme, verwendet werden können. 


Die folgende Tabelle zeigt die Benutzung der allgemeinen Register im Zusammenhang mit 
Programmverknüpfungen. 


Tabelle: Registerbenutzung 


Register- | Registerverwendung Inhalt 
Nummer 


1 Operandenübergabe Adresse der Operandenadressen, die an das aufgerufene Pro- 
gramm übergeben werden sollen. 


13 Sicherstellungs- Adresse eines 18 Worte (= 72 Byte) langen Bereiches im laufen- 
bereich fenden Programm, der vom aufgerufenen Programm zur Sicher- 
stellung der Register verwendet werden kann. | 
14 Rücksprung Adresse des Rückkehrpunktes ins aufrufende Programm. 
15 Einsprungpunkt Adresse des Einsprungpunktes im aufgerufenen Programm. 


Konventionen in einem aufgerufenen Assembler-Programm 


Ein aufgerufenes Assembler-Unterprogramm muß den Inhalt der von ihm benutzten Register 
und anderer in der Tabelle angegebener Informationen im Sicherstellungsbereich abspeichern, 
dessen Adresse ihm in Register 13 beim Aufruf übergeben wurde. Ein aufgerufenes Programm 
muß außerdem eine Rücksprungroutine besitzen, deren Aufgabe es ist, 


1. die Adresse des Sicherstellungsbereiches des aufrufenden Programmes in Register 13 
zurückzuladen, 


2. den Inhalt anderer benutzter Register wiederherzustellen, 
3. die Rückkehradresse in Register 14 zu laden und schließlich, 


4. in das aufrufende Programm an die Adresse, die in Register 14 enthalten ist, zurückzu- 
springen. 


Der COB1-Übersetzer setzt die Programm-Maske auf X’00'. Deshalb führen im Assembler- 
Unterprogramm die folgenden Fehler zu keiner Programmunterbrechung: 

IW = X’6C’ Mantisse = 0 

IW = X'70' Exponentialunterlauf 

IW = X'74 Dezimalüberlauf 

IW = X’78' Festpunktüberlauf 


Falls der Programmierer die Programm-Maske im Assembler-Unterprogramm verändert, 
muß er sie vor dem Rücksprung in das COBOL-Programm auf X’00’ zurücksetzen. 
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Tabelle: Inhalt und Aufbau des Registersicherstellungsbereiches 


1 Bereich Länge des Sicherstellungsbereiches 


2 Bereich +4 Adresse (eingetragen durch das aufgerufene Programm) 
des vom aufrufenden Programm verwendeten Sicherstel- 
lungsbereiches. Es handelt sich also um die Adresse des 
Sicherstellungsbereiches, die an das aufrufende Programm 
übergeben wurde, falls dieses ebenfalls ein aufgerufenes Pro- 
gramm war. (Rückwärtskettungsadresse). 


3 Bereich + 8 Adresse (eingetragen vom aufgerufenen Programm) des näch- 
sten Sicherstellungsbereiches, d.h. des Sicherstellungsbe- 
reiches des aufgerufenen Programmes, den dieses für ein von 
ihm aufgerufenes Programm zur Verfügung stellt. (Dieser 
Sicherstellungsbereich ist nicht erforderlich, falls kein weite- 
rer Unterprogrammaufruf erfolgen soll.) 


4 Bereich + 12 Rückkehradresse (Inhalt von Register 14), eingetragen vom 
aufgerufenen Programm. 

5 Bereich + 16 Einsprungadresse (Inhalt von Register 15), eingetragen vom 
aufgerufenen Programm. 

6 Bereich + 2® Inhalt von Register ®, eingetragen vom aufgerufenen Pro- 


gramm. 


be H Bereich + 24 


8 Bereich + 28 


Inhalt von Register 1 (eingetragen vom aufgerufenen Pro- 
gramm). Register 1 enthält die Adresse der Parameterliste, 
die an das aufgerufene Programm übergeben wurde. 


Inhalt der Register 2 bis 12, eingetragen durch das aufgeru- 
fene Programm. 


18 Bereich +68 


Beispiel 37: Aufgerufenes Assembler-Programm 


UPRO START 
ENTRY ASSUPRO Definition eines Einsprungpunktes 
x mit Namen ASSUPRO, auf den ein 
Pr anderes Programm Bezug nehmen 
C kann. 

A reiches als DUMMY SECTION 
SAVAREA DSECT 
BEREICH DS F 
RUECK DS r 
REG14 DS F 
REG15 DS F 
REG® DS F 
REG? DS F 
REG2T012 DS FE 
UPRO ` ` CSECT 


USING SAVAREA,13 
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STM 14, 12, REG14 


L 13, SAVADDR 
DROP 13 


USING SAVAREA, 5 
ST 13, VORWAERT 


USING SAVAREA, 13 


ST 5, RUECK 


Benutzeranweisungen 


DC A(SAVAREAI) 


DC  18F'Ø' 


* Rücksprungroutine 


USING SAVAREA, 13 
L 13, RUECK 


IM 14, 12, REG14 


BR 14 


Register 14, 15, ® und 1 werden in den dafür vorge- 
sehenen Abschnitt REG14, REG15, REG® bis REG1 
des Sicherungsbereiches abgespeichert. 


Mit dem gleichen Befehl werden auch die nicht für 
die Programmverknüpfung reservierten Register 2 
bis 12 im Sicherstellungsbereich (REG2TO12) 
abgesetzt. 


Die Sicherstellung von Register 2 bis 12 hängt von 
deren Benutzung durch das aufgerufene Programm 


ab und kann unterbleiben für nicht verwendete Register. 


Die Adresse des Sicherstellungsbereiches des 
aufrufenden Programmes wird in Register 5 
zwischengespeichert und kann zur Adressierung des 
Sicherungsbereiches verwendet werden. 


Die Adresse des eigenen Sicherstellungsbereiches 
wird in Register 13 geladen. 


Die Adresse des eigenen Sicherstellungsbereiches 
wird in das Feld VORWAERT (Wort 3) des Sicher- 
stellungsbereiches des aufrufenden Programmes 
abgespeichert. 


Die Adresse des Sicherstellungsbereiches des auf- 


 rufenden Programmes wird in das Feld RUECK 


(Wort 2) des eigenen Sicherstellungsbereiches 
eingetragen. 


Die Adresse des Sicherstellungsbereiches des aufru- 
fenden Programmes wird aus den eigenen Sicher- 
stellungsbereich in Register 13 zurückgeladen. 


Die Inhalte der Register 14, 15, Ø, 1 und 2 bis 12 
des aufrufenden Programmes werden wiederher- 
gestellt. 


Rücksprung ins aufrufende Programm 
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Konventionen in einem aufrufenden Assembler-Programm 


Ein aufrufendes Assembler-Programm muß einen Sicherstellungsbereich der Länge 18 
Worte (= 72 Bytes), der an einer Wortgrenze beginnt, zur Verfügung stellen. Dieser Bereich 
wird vom aufgerufenen Programm zum Abspeichern der Registerinhalte des aufrufenden 
Programms verwendet. Die Adresse dieses Sicherstellungsbereiches muß in Register 13 an 
das aufgerufene Programm übergeben werden. Falls das aufrufende Programm Operanden 
übergeben soll, muß die Adresse der Operandenliste in Register 1 übergeben werden. Ferner 
muß das aufrufende Programm die Adresse des Rückkehrpunktes in Register 14 übergeben, 
die Adresse des Einsprungpunktes des aufgerufenen Programmes muß in Register 15 ent- 
halten sein. 


Die Operandenliste ist eine Gruppe aufeinanderfolgender Worte, deren Inhalt die Adressen 
von Datenfeldern darstellt, die an das aufgerufene Programm übergeben werden sollen. 
Diese Operandenliste muß auf Wortgrenze beginnen. Das höchstwertige Bit des letzten 
Eintrags dieser Adreßliste wird auf 1 gesetzt, um das Ende der Operandenliste anzugeben. 


© Beispiel 38: Aufrufendes Assembler-Programm 


Die Adresse des Sicherstellungsbereiches wird 
in Register 13 geladen. 


Register 1 wird mit der Adresse der Parameter- 
adreßliste geladen. 


Register 15 wird mit der Adresse des Einsprung- 
punktes des aufzurufenden Programmes 
geladen. 


Das aufzurufende Programm wird angesprungen 
und die Rückkehradresse in Register 14 
übergeben. 


oder ENTRADDR DC V(UPROENT) 
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Adresse der Operandenliste Si 


Adresse des ersten Operanden 

Adresse des zweiten Operanden 
Indikator für letzte Operandenadresse 
Adresse des dritten (letzten) Operanden 


Bemerkung: | 8 
Falls das aufrufende Programm bereits von einem anderen Programm gerufen wurde, würde 
es zusätzliche Anweisungen enthalten (vgl. Beispiel 37). 
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Systemdateien 


Ein-Ausgabe von Daten über Systemdateien 


Folgende COBOL-Anweisungen (siehe auch Manual „COB1-Sprachbeschreibung”) greifen 
auf Systemdateien zu (vgl. Tabelle unten): 


a) EXHIBIT 

b) TRACE (die durch READY TRACE eingeschalteten und durch RESET TRACE ausgeschal- 
teten Testüberwachungsausgaben) 

c) STOP literal 

d) ACCEPT 

e) DISPLAY 


Zu a) und b): Die Ausgabe erfolgt über SYSLST (Beschreibung dieser Anweisungen im Ab- 
schnitt 6.1). | 


Zu c): Diese Anweisung unterbricht das laufende Programm mit einer Meldung am Bedie- 
nungsplatz. Der Operateur setzt das Programm mit einer beliebigen, programmunabhängi- 
gen Eingabe fort. 

Höchstens 122 Bytes vom angegebenen Literal werden auf dem Bedienungsplatz ausgege- 
ben. — Eine explizite Umweisung auf ein anderes Ausgabegerät ist nicht möglich. 


Der Anwender bekommt die Meldung 9080 über SYSOUT, wenn die Anweisung STOP literal 
erreicht ist. 
Zu d) und e): Auf zweierlei Art verwendet man Systemdateien: 


— direkte Angabe: 
Bei ACCEPT sind möglich SYSIPT (Standard), SYSRDR, SYSIN, TERMINAL, CONSOLE. 
Bei DISPLAY sind möglich SYSLST (Standard), SYSOPT, SYSP[UN]CH, SYSOUT, TER- 
MINAL, CONSOLE. 


— über Merknamen: 
ACCEPT. .. FROM merkname bzw. 
DISPLAY... UPON merkname. 


Die Verknüpfung von Systemdatei und Merkname definiert man im SPECIAL-NAMES-Para- 
graphen der ENVIRONMENT DIVISION. 
Satzformate und Satzlängen 


Die einzelnen Systemdateien bzw. Geräte verarbeiten unterschiedliche Satzlängen. Sie ver- 
wenden entweder Satzformat F oder Satzformat V; näheres zeigt die folgende Tabelle. 
Tabelle: COBOL-Anweisungen, Systemdateien, Satzformate und Satzlängen 


COBOL- zugehörige 
Anweisungen Systemdateien 


Satz- logische Satzlänge 
format der Systemdatei 


des 
BS2000/Gerät 


m nn 


ACCEPT...FROM TERMINAL SYSDTA 
ACCEPT...FROM SYSRDR 
ACCEPT...FROM SYSIN 


ACCERT... SYSIPT 

ACCEPT...FROM SYSIPT 

ACCEPT...FROM CONSOLE') Bedienungs- V 
platz 

DISPLAY... UPON CONSOLE') Bedienungs- V 

STOP literal?) platz 


DISPLAY... UPON TERMINAL SYSOUT V im Stapelbetrieb: max. 2039 Bytes 
DISPLAY... UPON SYSOUT 
im Dialogbetrieb: max. 32 K 


bei Zuweisung auf Kartenleser 
max. 80 Bytes 


bei Eingabe über Datenstation 
oder von Plattendatei: max. 32 K 


80 Bytes 
max. 72 Bytes 


max. 127 Bytes 
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COBOL- zugehörige Satz- logische Satzlänge 
Anweisungen Systemdateien | format der Systemdatei 

des 

BS2000/Gerät 
DISPLAY... SYSLST V max. 133 Bytes: 1 Byte Steuerinfor- 
DISPLAY... UPON SYSLST mation, 132 Bytes Daten 
EXHIBIT... ; 
READY TRACE 
RESET TRACE 
DISPLAY... UPON SYSOPT SYSOPT max. 80 Bytes: 72 Datenbytes; 
DISPLAY... UPON SYSPUNCH Bytes 73—80 enthalten die ersten 


8 Bytes des PROG.-ID-Namens. 


') CONSOLE sollte nur in Ausnahmefällen verwendet werden, da im „Closed Shop“-Betrieb des BS2000 der Operateur meist nicht über 
die verlangten Daten Bescheid weiß. Statt dessen kann man TERMINAL einsetzen. 


?) Das Literal darf höchstens 122 Bytes lang sein. 


Übertragen werden Daten in der Länge des im COBOL-Programm beschriebenen Feldes. 


Falls der Anwender dieses Feld nicht vollständig füllt, 

— wird bei ACCEPT dieses Feld mit Leerzeichen gefüllt 

— besteht bei DISPLAY der Rest aus altem Feldinhalt, ggf. aus binären Nullen (nicht ab- 
druckbar). 


Falls Daten über ein ACCEPT-Feld hinausgehen, werden sie nicht übertragen. 


Zu beachten ist, falls das Satzformat F verwendet wird (abhängig von der Systemdatei bzw. 
dem zugewiesenen Gerät): Ist die Länge eines Bezeichners in einer ACCEPT-Anweisung grö- 
Ber als die logische Satzlänge der Systemdatei, so werden Daten nachgefordert, d.h. meh- 
rere Eingabeoperationen (Makroaufrufe) veranlaßt. 


Bei abnormaler Beendigung eines Einlesevorganges durch Erreichen von EOF der Eingabe- 
datei wird die Meldung 9051 oder 9052 über SYSOUT ausgegeben. Es wird /* in den Einga- 
bebereich übertragen und mit der folgenden Anweisung fortgefahren. 


Beispiele: 


38a) Ein Programm mit ACCEPT- und DISPLAY-Anweisungen ohne Verwendung von Merk- 
namen ist im Beispiel 1 abgedruckt. 


38b) Ein vom Benutzer gewählter Merkname wird im SPECIAL-NAMES-Paragraphen der 
ENVIRONMENT DIVISION mit der Systemdatei SYSIPT verknüpft: 
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6.5.2 


Dateien 


Dateibearbeitung 


Allgemeines 


Dieser Abschnitt behandelt katalogisierte Dateien. Ausgenommen sind Systemdateien so- 
wie COBOL-Bibliotheken. 


Um logische Sätze zu speichern und wieder aufzufinden, bedient sich das COB1-System 
bestimmter Zugriffsmethoden des Datenverwaltungssystems (DVS), nämlich SAM, ISAM, 
UPAM (siehe Manual „Datenverwaltungssystem“ [4]). 


Der Name einer vom DVS verwalteten Datei ist (neben anderen Dateieigenschaften) im Sy- 
stemkatalog eingetragen. Auf ihn beziehen sich etwa die Dateinamen im FILE-Kommando 
oder im CATALOG-Kommando. Der Name einer katalogisierten Datei ist nicht notwendiger- 
weise identisch mit dem (logischen) Dateinamen im COBOL-Programm. Dort ist eine Datei 
durch den Dateinamen (maximal 30 Zeichen; davon sind nur die ersten 8 Zeichen signifikant) 
in der Dateierklärung (FD) der FILE SECTION definiert. Dieser logische Dateiname muß zur 
Ablaufzeit mit einer physischen Datei verbunden werden, und zwar durch das FILE-Kom- 
mando (siehe Abschnitt 5.1.3): 


/FILE dateiname,LINK = linkname 


Für den Zugriff zu Datensätzen hält COBOL bestimmte Sprachmittel bereit (Genaueres siehe 
Manual „COB1 Sprachbeschreibung“ [1]): 


Tabelle: Zugriff zu Datensätzen 


COBOL-Sprachelement 


Bedeutung 


ORGANIZATION-Klausel 
ACCESS-Klausel 
OPEN-Anweisung 


Organisationsform 
Zugriffsart 
Dateieröffnung 


Dateiorganisationsformen, Zugriffsarten, Dateieröffnung, Übertragung der Daten 


Organisationsformen 


Eine von einem COBOL-Programm zu verarbeitende Datei kann eine der folgenden Organi- 
sationsformen haben: 


— sequentiell (DVS: SAM) 
— relativ (DVS: UPAM) 
— indiziert (DVS: ISAM) 


Die vom Benutzer gewählte Organisationsform bestimmt die Zugriffsmethode des DVS, die 
in Klammer jeweils angegeben ist. 


Sequentiell organisierte Dateien können auf jedem möglichen Ein- oder Ausgabegerät exi- 
stieren. Relativ oder indiziert organisierte Dateien sind nur auf Plattenspeichern möglich. 


Sequentielle Dateiorganisation 


In einer Datei mit sequentieller Dateiorganisation hat jeder Satz, außer dem letzten, einen 
eindeutigen Nachfolgesatz, und jeder Satz, außer dem ersten, einen eindeutigen Vorgänger- 
satz. Diese Vorgänger- bzw. Nachfolgereigenschaft wird beim Aufbau der Datei durch die 
Reihenfolge der WRITE-Anweisungen festgelegt. Diese Eigenschaft bleibt während der Le- 
bensdauer einer Datei erhalten. Die Datei kann lediglich an ihrem Ende fortgesetzt werden. 


Eine sequentiell organisierte Plattenspeicherdatei hat die gleiche logische Struktur wie jede 
andere sequentielle Datei auf anderen Speichermedien. Jedoch kann eine Plattenspeicher-. 
datei ohne Kopiervorgänge am ursprünglichen Platz aktualisiert werden. Beim Aktualisieren 
einer Plattenspeicherdatei mit sequentieller Organisation können jedoch keine neuen Sätze 
eingefügt werden, sondern nur bereits existierende ersetzt werden, wobei der neue Satz 
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gleiche Satzlänge wie der bereits existierende haben muß. Im Eröffnungsmodus »EXTEND« 
kann die Datei verlängert werden. 


Relative Dateiorganisation 


Bei einer Datei mit relativer Dateiorganisation kann zu jedem Satz dieser Datei zugegriffen 
werden, durch Angabe der relativen Satznummer dieses Satzes in der Datei. Vom Konzept 
her besteht eine Datei mit relativer Dateiorganisation aus einer Folge von Bereichen, in de- 
nen jeweils ein logischer Satz der Datei abgespeichert werden kann. Jedem dieser Bereiche 
ist eine relative Satznummer zugeordnet, die damit automatisch auch den logischen Satz 
identifiziert. Ein Satz mit der relativen Satznummer 10 ist der 1ßte Satz der Datei und befin- 
det sich im 1ßten Satzspeicherbereich, unabhängig davon, ob die Sätze 1—9 bereits existie- 
ren oder nicht. 


Indizierte Dateiorganisation 

Bei einer Datei mit indizierter Organisation geschieht der Zugriff zu jedem Satz der Datei 
über den Wert eines im Satz enthaltenen Schlüssels. Dabei wird für jeden Schlüsselwert, 
der in der Datei vorkommt, ein Index mitgeführt. Diese Indizes stellen damit einen Zugriffs- 
mechanismus zu jedem Satz der Datei dar. Die in der RECORD KEY-Klausel angegebenen 
Schlüsselwerte, die zum Aufbau der Datei verwendet werden, müssen eindeutig sein. 


Satzformate: 


Für jede Organisationsform sind bestimmte Satzformate erlaubt; dies zeigt die folgende 
Tabelle. 


Tabelle: Satzformate in Abhängigkeit von der Organisationsform 


Organisationsform Satzformate 
ungeblockt 

sequentiell F,V,U 

relativ RES 

indiziert FV 

Zugriffsarten 


Außer der Organisationsform bestimmt auch die Zugriffsart die Verarbeitung einer Datei. 
Die Zugriffsart legt der Benutzer mit der ACCESS-Klausel fest. Möglich sind: 


— sequentieller Zugriff (ACCESS IS SEQUENTIAL) 
— wahlfreier Zugriff (ACCESS IS RANDOM) 
— dynamischer Zugriff (ACCESS IS DYNAMIC) 


Die folgende Tabelle gibt einen Überblick über die Zugriffsarten und ihre Funktionen, die für 
die einzelnen Organisationsformen erlaubt sind. 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 


Dateien 


Tabelle: Zugriffsart in Abhängigkeit von der Organisationsform 


Organisationsform 


ORGANIZATION- 


Klausel 
SEQUENTIAL 
(Standard- 
annahme) 


RELATIVE 


INDEXED 


Zugriffsmodus 


ACCESS- 
Klausel 


SEQUENTIAL 
oder keine 
Angabe 


SEQUENTIAL 
oder keine 
Angabe 


RANDOM 


DYNAMIC 


SEQUENTIAL 
oder keine 
Angabe 


RANDOM 


DYNAMIC 
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Bemerkungen 


Zugriff erfolgt entsprechend der Reihenfolge in der die 
Sätze in die Datei geschrieben werden. 


Zugriff erfolgt in aufsteigender Reihenfolge der relativen 
Satznummer. Nur bereits in der Datei existierende Sätze 
werden zur Verfügung gestellt. Mit Hilfe der START- 
Anweisung kann der Beginn des sequentiellen Zugriffs 
angegeben werden. 


Zugriff erfolgt in der vom Benutzer durch die im RELA- 
TIVE KEY zur Verfügung gestellten Satznummer in der 
vom Benutzer gewünschten Reihenfolge. 


Bei dieser Angabe kann der Anwender durch Verwen- 
dung geeigneter COBOL-Anweisungen zwischen se- 
quentiellem und wahlfreiem Zugriff während der Ver- 
arbeitung einer Datei wählen. 


Zugriff erfolgt in aufsteigender Reihenfolge der Satz- 
schlüssel. Nur bereits in der Datei existierende Sätze 
werden zur Verfügung gestellt. Mit Hilfe der START-An- 
weisung kann der Beginn des sequentiellen Zugriffs 
festgelegt werden. 


Zugriff erfolgt in der vom Benutzer durch den im RECORD 
KEY zur Verfügung gestellten Satzschlüssel in der von 
ihm gewünschten Reihenfolge. 


Bei dieser Angabe kann der Anwender durch Verwen- 
dung geeigneter COBOL-Anweisungen zwischen se- 
quentiellem und wahlfreiem Zugriff während der Ver- 
arbeitung einer Datei wählen. 
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Dateieröffnung 
Die Anweisung 


INPUT... [REVERSED] 
OUTPUT 

OPEN | EXTEND 
Lo 


eröffnet eine Datei. Abhängig von der Eröffnungsart und der Organisationsform sind be- 
stimmte Verarbeitungsarten für die Eingabe bzw. Ausgabe zulässig. Die folgende Tabelle 
zeigt dies. 


Eröffnungsart | 
Organi- INPUT... 
sationsform INPUT OUTPUT EXTEND REVERSED 
SEQUENTIAL READ WRITE WRITE READ, READ 
REWRITE ) 


READ, START 
WRITE, 
REWRITE, 
DELETE 


RELATIVE READ WRITE 
START DELETE 
INDEXED READ WRITE READ, START 
START DELETE WRITE, 
REWRITE, 
DELETE 


1) Nur für Plattenspeicher-Dateien erlaubt 


Tabelle: Verarbeitungsarten in Abhängigkeit von Eröffnungsart und Organisationsform 


Die im OPEN angegebene Eröffnungsart wird nicht berücksichtigt, wenn vor Start des Pro- 
gramms ein FILE-Kommando für dieselbe Datei mit OPEN-Operand gegeben wurde. Das be- 
deutet, daß für eine Datei, die in einem Programmlauf mehrfach im Wechsel schreibend und 
lesend bearbeitet wird, nur ein FILE-Kommando ohne OPEN-Operand gegeben werden 
kann, da sonst der Eröffnungsmodus für den ganzen Programmlauf festgelegt wäre. 


Folgende Angaben in der OPEN-Anweisung des COBOL-Programmes und im OPEN-Ope- 
randen des FILE-Kommandos sind unvereinbar: 


COBOL-Anweisung FILE-Kommando 


OPEN = INPUT 


OPEN = REVERSE 


OPEN = INPUT 


OPEN EXTEND OPEN = REVERSE 
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APPLY BLOCK-DENSITY-Klausel 


Die Klausel ist nur bei ISAM-Dateien von Bedeutung. Sie bestimmt den Füllungsgrad der 
Datenblöcke. Bei Angabe von z.B. 60% werden nur soviele Sätze in einem ISAM-Daten- 
block eingefügt, wie zur Belegung von 60% des für den Block zur Verfügung stehenden 
Speicherplatzes erforderlich sind. Die restlichen 40% bleiben für spätere Aktualisierungs- 
vorgänge zur Verfügung. Diese Angabe ist jedoch nur dann sinnvoll, falls beim Laden der 
Datei Lücken in der aufsteigenden Folge der Schlüssel der Datensätze vorhanden sind. 


Beispiel: 

Es soll eine ISAM-Datei geladen werden, wobei nur jeder 10-te Satz zur Verfügung steht. 
Um beim späteren Aktualisieren der Datei die Erzeugung von Überlauf-Blöcken soweit wie 
möglich auszuschließen, ist es sinnvoll, die Datei mit der Klausel APPLY BLOCK-DENSITY 10 
PERCENT zu laden. 

Beim späteren Einfügen der jeweils fehlenden 9 Sätze pro Block erfolgt dann nur eine Ver- 
schiebung innerhalb der bereits vorgegebenen Blöcke, ohne daß Überlauf-Blöcke gebildet 
werden müssen. Die Anwendung dieser Klausel erhöht also die Effizienz des Abarbeitens ei- 
ner ISAM-Datei, vor allem nach vielen Aktualisierungsvorgängen; bedeutet allerdings einen 
erhöhten Platzbedarf der Datei, falls mit vielen Lücken erstmalig geladen wird. 


Übertragung der Daten 


Um auf Datensätze in einer SAM- oder ISAM-Datei zuzugreifen, verwendet das COBOL-Pro- 
gramm eines der beiden folgenden Verfahren (siehe [4]): 


— Move Mode (Übertragungsbetrieb): 
Bei jedem Zugriff überträgt das DVS einen logischen Satz zwischen dem Puffer und 
einem Arbeitsbereich des Programmes. 


— Locate Mode (Ortungsbetrieb): | 
Bei jedem Zugriff übergibt das DVS dem Programm eine Adresse, die auf eine Stelle im 
Puffer zeigt, von der das Programm den angeforderten Satz lesen oder wohin es einen 
Satz schreiben kann. Ein Register zur Übergabe dieser Adresse wird beim Eröffnen der 
Datei vereinbart. 


Für den Zugriff auf Daten in relativen Dateien benutzt das COBOL-Programm einen speziel- 
len COBOL Move Mode. 


Welche dieser Übertragungsarten das Programm jeweils auswählt, hängt ab von der Orga- 
nisationsform der Datei, dem Format ihrer Sätze und der Eröffnungsart. Die folgende Ta- 
belle gibt darüber Aufschluß. 
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Eröffnungsart 


Organisations- 
form 


OUTPUT INPUT 


SEQUENTIAL RECFORM =V Move Mode Locate Mode Locate Mode 


RECFORM =F Locate Mode Locate Mode Locate Mode 
RECFORM =U Locate Mode Locate Mode Locate Mode 


INDEXED RECFORM =V Move Mode Move Mode Move Mode 
RECFORM =F Move Mode Move Mode Move Mode 
RELATIVE COBOL Move Mode | COBOL Move Mode | COBOL Move Mode 


Tabelle: Übertragungsarten für Daten in Abhängigkeit von der Eröffnungsart und der Or- 
ganisationsform der Datei 


Hinweis: Im Locate Mode liegt der Satzbereich einer Datei im Puffer. Bei geblockten SAM- 
Dateien, die im Modus l-O eröffnet sind, wird daher durch eine REWRITE-Anwei- 
sung für einen Satz eines Blockes stets der gesamte Block übertragen. Darauf ist 
insbesondere dann zu achten, wenn Sätze eines Blockes zwar modifiziert wurden, 
die Änderungen jedoch nicht zurückgeschrieben werden sollen: Sie werden impli- 
zit durch eine REWRITE-Anweisung für einen anderen Satz dieses Blockes mit 
übertragen. 
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6.5.3 


Sequentielle Dateien 


Sequentielle Dateiorganisation 


Eine sequentiell organisierte Datei kann nur so verarbeitet werden, daß Sätze in der Reihen- 
folge gelesen oder geschrieben werden, wie sie in der Datei vorkommen. Das BS2000 stellt 
dazu die Zugriffsmethode SAM zur Verfügung. 


Die folgende Abbildung gibt die COBOL-Klauseln wieder, die man zum sequentiellen Zugriff 
verwenden kann. 


Tabelle: COBOL-Klauseln für sequentielle Dateiorganisation 


DVS Zugriffs- | Geräte- | ACCESS- KEY- OPEN- Ein-Ausgabe- CLOSE- 
methode typ Klausel Klausel | Anweisung | Anweisung Anweisung 


Band SEQUENTIAL INPUT READ [INTO] [REEL] 
REVERSED 
[AT END] 
NO REWIND LOCK 
RE e ër NO REWIND 
FOR REMOVAL 


Platten- | SEQUENTIAL READ [INTO] [UNIT] 

speicher [AT END] LOCK 
a R NO REWIND 
READ [INTO] | [LOCK] 


[AT END] 
WRITE [FROM] 
REWRITE [FROM] 


Steuerung des Programmablaufs 


Das FILE-Kommando definiert Dateieigenschaften zur Ablaufzeit eines COBOL-Programms. 
Für sequentielle Dateien sind besonders vier Operanden wichtig; ausführliche Beschreibung 
siehe „Kommandosprache”, [2]: 


Format des FILE-Kommandos: 


STD 
/FILE dateiname[,LINK = linkname][,BLKSIZE = į (STD,n) ][, SPACE = | H |ı1.cooe = ISO7] 
pufferlänge (p.s) 


dateiname Name, unter dem die Datei katalogisiert ist 
LINK = linkname Dateikettungsname 
BLKSIZE = STD Der Puffer für die Ein-Ausgabe der Datei wird auf die Größe eines 


Standardblockes (1 PAM-Seite = 2048 Bytes) festgelegt. 


(STD,n) Der Puffer für die Ein-Ausgabe der Datei wird auf die Größe von n 
Standardblöcken festgelegt. 
n ist eine Zahl im Bereich von 2—16 


pufferlänge Die Pufferlänge wird in Byte angegeben. Die Angabe darf maximal 
32767 sein. (Diese Angabe ist nur für MB-Dateien möglich.) 


Hinweis: Der Operand BLKSIZE=(STD,n) ermöglicht für n>1 gekettete 
Ein-Ausgabe (chained I-O): Intern werden mit nur einem Makroauf- 
ruf bis zu 16 logisch aufeinanderfolgende PAM-Blöcke übertra- 
gen. Die Anzahl der Ein-Ausgabe-Operationen wird damit verrin- 
gert, die Verarbeitung beschleunigt (ab BS2000 V6.0). 
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SPACE=p p ist die Anzahl der PAM-Seiten für die Primärzuweisung. 


(p.s) s ist die Anzahl der PAM-Seiten, für die Sekundärzuweisung. I 
Beide Angaben sollten ein Vielfaches von 3 sein, da die PAM-Sei- 
tenzuweisung in Einheiten (units) von 3 erfolgt. Ist die Angabe kein 
Vielfaches von 3, wird sie auf einen entsprechenden Wert aufge- 
rundet. 


Hinweis: Bei BLKSIZE = (std,n) gilt für 
— die Primärzuweisungp >2xn 
— und die Sekundärzuweisungs > n 
(Primär- und Sekundärzuweisung jeweils aufgerundet auf das Viel- 
fache von 3) 
Beispiel: BLKSIZE=(STD,8) 
SPACE = (18,9) 


CODE=1S07 Magnetbanddateien im ISO-7-Bit-Code (s.u.) werden verarbeitet. 
Bei fehlender Angabe verwendet das System den EBCDIC-Code 
(Standard). 


Hinweis: Bei Daten mit RECFORM = U (RECORDING U-Angabe in der FILE SECTION) darf 
im FILE-Kommando der RECSIZE-Operand nicht angegeben werden. In diesem Q 
Fall bezeichnet RECSIZE ein Register zur Übergabe der Satzlängeninformation. 


Steuerinformationen für Druckerdateien 


Die vertikale Positionierung einer Druckerdatei, bei der der Gerätename PRINTERDOD an- 
gegeben wurde, ist auf zwei Arten möglich: 


1. WRITE ohne ADVANCING-Zusatz 
2. WRITE mit ADVANCING-Zusatz 


In beiden Fällen dient das erste Zeichen des benutzerdefinierten Satzes zur Übergabe der 
Vorschubinformation an das DVS und muß vom Anwender reserviert werden. 


Bei Verwendung von WRITE ohne ADVANCING-Zusatz muß der Anwender das erste Byte 
des Satzes selber mit der gewünschten Vorschubinformation versorgen. Die möglichen 
Werte sind in den folgenden Tabellen abgedruckt. 
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Tabelle: Steuerinformation für Druckervorschub um Zeilenanzahl 


© Inhalt des Steuerbyte falls Vorschub 
Vorschub um Anzahl Zeilen nach vor Drucken erwünscht 
1 Die Werte des zweiten Halbbyte für das 
2 Steuerzeichen Vorschub vor dem Drucken 
3 sind wegen Hardwareeigenschaften um 1 
4 kleiner, als die gewünschte Zeilenzahl. 
5 
6 
9 
10 
11 
12 
13 
14 
15 
© Tabelle: Steuerinformation für Druckervorschub nach Lochbandkanälen. 
Vorschub 
Vorschub nach Lochband: dem Drucken 
Kanälen nach vor 
1 (Seitenwechsel) 
2 
3 
4 
5 
6 
7 
8 
10*) 
11 


*) Ein Vorschub nach Kanal 9 oder 12 ist nicht möglich, da diese nur zu Formularendebestimmung dienen. 


Bei den aufgeführten Steuerzeichen handelt es sich nur in einigen Fällen um abdruckbare 
Zeichen. In folgenderTabelle sind die abdruckbaren Zeichen und ihre Äquivalente aufgeführt. 


Steuerzeichen abdruckbares Zeichen 
40 — (Zwischenraum) 
4A c (cent) 

4B . (Punkt) 

4C < (kleiner als) 

4D ( (Klammer auf) 
4E + (Plus) 

C1 A 

C2 B 

c3 C 

CA D 

Ch E 

C6 F 

C7 G 

c8 H 


Druckerdateien werden mit dem PRINT-Kommando ausgedruckt. Es muß der Operand 
SPACE =E angegeben werden. Genaue Beschreibung und Erläuterung des PRINT-Komman- 


© dos siehe [2, Kapitel 3]. 
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Im folgenden wird eine Möglichkeit zur Erzeugung eines beliebigen sedezimalen Zahlenwer- 
tes angegeben. 


Beispiel 39: 


Es soll der sedezimale Wert 0A erzeugt und in das Steuerzeichen des Drucksatzes übertra- 
gen werden: 


Erläuterung: 


Dem Datennamen HES DA wird das elfte Zeichen des EBCDIC-Zeichensatzes zugeordnet, 
nämlich der sedezimale Wert 0A. 


Mit der MOVE-Anweisung wird dieser Wert in das Feld STEUERZEICHEN übertragen. 


ISO-7-Bit CODE 


Um Magnetbanddateien im ISO-7-Bit Code zu verarbeiten, gibt es zwei Möglichkeiten: 
1. Angabe des Gerätenamens TAPISO im Herstellerwort der SELECT-Klausel. 


Außerdem ist vor Programmablauf der Operand CODE =IS07 im FILE-Kommando er- 
forderlich: 


/FILE dateiname, CODE=IS07, ... . 


2. Im SPECIAL-NAMES-Paragraphen verwendet man die Klausel 
ALPHABET alphabet-1 IS STANDARD-2 
und in der FD-erklärung der Magnetbanddatei 
CODE-SET IS alphabet-1 


Ein-Ausgabe-Zustände 


Gibt der Benutzer in der SELECT-Klausel “FILE STATUS IS datenname” an, so wird der Ein- 
Ausgabe-Zustand der zugehörigen Datei nach jeder Ein-Ausgabeoperation im Feld “daten- 
name” abgelegt. Dieses Feld fragt der Benutzer ab, um Ein-Ausgabeoperationen zu kontrol- 
lieren. Die für eine sequentielle Datei möglichen Werte sind nachfolgend zusammengestellt. 
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Tabelle: Ein-Ausgabe-Zustände 


FILE STATUS-Werte| Bedeutung 


Us 


00 
04 


05 


35 


38 
39 


erfolgreiche Ausführung 


keine weitere Information 


erfolgreicher READ, aber Satzlängenfehler (siehe COB1 Beschreibung [1]: 

RECORD-Klausel) 

erfolgreicher OPEN INPUT oder OPEN I-O auf OPTIONAL-Datei, die nicht vor- 

handen ist; einer der folgenden Gründe liegt vor: 

1. Das FILE-Kommando mit richtigem Linknamen fehlt; 
der Programmlauf wird mit der Meldung 9077 unterbrochen; bei OPEN 
INPUT/I-O wird das FILE-Kommando angefordert; 

2. Datei ist nicht katalogisiert; 

3. Datei ist zwar katalogisiert, aber OPEN und CLOSE wurden noch nicht ausge- 
führt. 


erfolglose Ausführung: Endebedingung 


READ bei Dateiende 


erster READ auf eine nicht vorhandene OPTIONAL-Datei; Dateiende erreicht 
(AT END-Bedingung) 


READ nach bereits erkannter AT END-Bedingung 


erfolglose Ausführung: permanenter Fehler 


keine weitere Information 

unzureichende Sekundärzuweisung im FILE-Kommando (aufgrund der Zwi- 

schenpufferung ist die Anzahl der tatsächlich geschriebenen Sätze unbe- 

stimmt) 

OPEN INPUT/I-O auf eine nicht vorhandene Datei ohne OPTIONAL-Angabe; ei- 

ner der folgenden Gründe liegt vor: 

1. Das FILE-Kommando mit richtigem Linknamen fehlt; 
der Programmlauf wird mit der Meldung 9077 unterbrochen; bei OPEN 
INPUT/I-O wird das FILE-Kommando angefordert; 

2. Datei ist nicht katalogisiert; 

3. Datei ist zwar katalogisiert, aber OPEN und CLOSE wurden noch nicht ausge- 
führt. 

OPEN auf eine Datei, die vorher mit CLOSE WITH LOCK geschlossen wurde 

1. Im FILE-Kommando wurden einer oder mehrere der Operanden FCBTYPE, 
RECFORM oder RECSIZE mit Werten angegeben, die von den entsprechen- 
den expliziten oder impliziten Programmangaben abweichen. 

2. Satzlängenfehler bei Eingabedateien (Katalogüberprüfung). 

3. Satzlänge größer als BLKSIZE-Angabe im FILE-Kommando. 


erfolglose Ausführung: logischer Fehler 


OPEN auf eine bereits eröffnete Datei 
CLOSE auf eine nicht eröffnete Datei 
REWRITE ohne vorherigen erfolgreichen READ 


Überschreiten der Bereichsgrenzen: 
1. WRITE oder REWRITE mit unzulässiger Satzlänge 
(siehe COB1 Beschreibung [1]: RECORD-Klausel) 
2. REWRITE mit anderer Satzlänge als beim gelesenen Satz 


erneuter READ nach erfolglosem READ 

READ auf eine Datei, die nicht als INPUT oder I-O eröffnet wurde 

WRITE auf eine Datei, die nicht als OUTPUT, I-O oder EXTEND eröffnet wurde 
REWRITE auf eine Datei, die nicht als I-O eröffnet wurde 


sonstige erfolglose Ausführungen 


Systemfehler; keine weitere Information 
entweder Password-Fehler oder OPEN-Fehler oder kein freies Gerät 
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Relative Dateien 


Relative Dateiorganisation 


Die Verarbeitung relativ organisierter Dateien wird bestimmt durch die Verwendung der re- 
lativen Satzadressierung. Unter Verwendung dieser Adressierungsmöglichkeit wird die Posi- 
tion jedes logischen Satzes innerhalb der Datei relativ zum ersten Satz dieser Datei festge- 
legt, und zwar durch eine relative Satznummer, beginnend mit 1. Durch Angabe eines relati- 
ven Schlüsselfeldes kann der Benutzer direkt auf Sätze einer relativen Datei zugreifen. 


Relativ organisierte Dateien sind nur auf Plattenspeichern möglich und können nur aus Sät- 
zen fester Länge bestehen. 


Im BS2000 wird die Zugriffsmethode PAM benutzt. 


Die folgende Tabelle gibt die COBOL-Klauseln wieder, die für den Zugriff zu relativ organi- 
sierten Dateien verwendet werden können. 


CLOSE- 
An- 
weisung 


DVS- Geräte- | ACCESS- KEY- 
Zugriffs- | typ Klausel Klausel 
methode 


OPEN- 
An- 
weisung 


Ein-Ausgabe- 
Anweisungen 


SEQUENTIAL| RELATIVE 
KEY 


INPUT | READ [WITH NO LOCK] 
[INTO] [AT END] 

START [WITH NO LOCK] 
WRITE [FROM] 

READ [WITH NO LOCK] 
[INTO] [AT END] 

START [WITH NO LOCK] 
WRITE [FROM] 
REWRITE [FROM] 
DELETE 


[WITH 
LOCK] 


OUTPUT 
I—O 


RANDOM RELATIVE 
KEY 


INPUT READ [WITH NO LOCK] 


[INTO] [INVALID KEY] 


[WITH 
LOCK] 
PAM 
OUTPUT 
I-0O 


WRITE [FROM] INVALID KEY 
READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 

WRITE [FROM] [INVALID KEY] 
REWRITE [FROM] [INVALID 
KEY] 

DELETE [INVALID KEY] 


DYNAMIC RELATIVE 
KEY 


READ [WITH NO LOCK] 
NEXT [INTO] [AT END] 
READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 
START [WITH NO LOCK] 
[INVALID KEY] 
WRITE [FROM] [INVALID KEY] 
READ [WITH NO LOCK] 
NEXT [INTO] [AT END] 
READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 
START [WITH NO LOCK] 
[INVALID KEY] 
WRITE [FROM] [INVALID KEY] 
REWRITE [FROM] [INVALID 
KEY] 

DELETE [INVALID KEY] 


[WITH 
LOCK] 


OUTPUT 
I—0O 
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Aufbau einer relativen Datei 


Jede PAM-Seite einer relativen Datei beginnt mit einem PAM-Schlüssel (Aufbau siehe Ma- 
nual „DVS, Plattenverarbeitung“ [4]), gefolgt von logischen Sätzen. Für Ausgabedateien 
kann mit dem BLKSIZE-Operanden im FILE-Kommando die Blockgröße geändert werden, 
die im COBOL-Programm durch die BLOCK-CONTAINS-Klausel festgelegt wurde. Das RTS 
(Runtime-System) macht aus der Blockgröße des COBOL-Programms eine Standard-Block- 
größe. 
Beispiel: COBOL-Blockgröße 1000 Characters — (STD,1) 

5000 Characters — (STD,3) 


Arbeitet man mit SHARUPD=YES, so wird bei Zugriffen mit Sperrmechanismus der ge- 
samte Block gegen den Zugriff simultaner Benutzer gesperrt. 


Die folgende Abbildung zeigt den Aufbau einer relativen Datei für einen Block mit 2 PAM- 
Seiten; BLKSIZE=(STD,2). 


PAM- |. S Sn +1 PAM- Sn +1 a Block- 
Schlüssel 1 "TI Teil 1 Schlüssel Teil 2 n+2 Shem rest 


n V . 


erste PAM-Seite zweite PAM-Seite 


Bild 6-3 


Dem PAM-Schlüssel auf der ersten PAM-Seite folgen die Sätze S; bis Sn. Der vollständige 
Satz Gen hat auf der ersten PAM-Seite nicht mehr Platz. Ein Teil wird deshalb auf die 
zweite PAM-Seite geschrieben. Am Ende des Blockes bleibt möglicherweise Platz übrig 
(Blockrest). 


Eine relative Datei muß vor ihrer Erstellung nicht vorformatiert werden. Erstellen kann man 
im sequentiellen oder wahlfreien Zugriff. 


Bei sequentieller Erstellung wird der RELATIVE KEY nicht ausgewertet. Die Sätze werden in 
der Reihenfolge in die Datei gebracht, wie sie vom Benutzer geschrieben werden (WRITE). 
Leersätze kann es hierbei nur im letzten Block geben. 


Bei wahlfreier Erstellung errechnet das Ablaufzeitsystem aufgrund der definierten RECSIZE, 
BLKSIZE (FILE-Kommando) und des Inhalts des RELATIVE KEY die genaue Position des Sat- 
zes innerhalb der Datei. Dabei wird jeder angefangene Block vorformatiert. 
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Beispiel 43: Programm zur Einrichtung einer relativen Datei 


© R bezeichnet „relative Datei“. 


© Die RELATIVE KEY Klausel wird verwendet. 


® Im Gegensatz zu anderen COBOL-Schlüsseln wird der relative Satzschlüssel nicht in der 
FD beschrieben, sondern in der WORKING-STORAGE SECTION. 


Mit Hilfe des Dienstprogramms DPAGE [3] läßt sich der Inhalt einer relativen Datei ausdruk- 
ken. Im Beispiel 44 handelt es sich um die mit obigem Programmbeispiel beschriebene Da- 
tei. | 


Bei sequentiellem Zugriff zu einer relativ organisierten Datei wird die relative Satznummer 
des zuletzt gelesenen oder geschriebenen Satzes dem Benutzer im relativen Satzschlüssel 
zur Verfügung gestellt. ` | 


Bei direkter Verarbeitung muß der Benutzer dem System im relativen Satzschlüssel die 
Nummer des Satzes übergeben, der gelesen, geschrieben, gelöscht oder verändert werden 
soll, bzw. auf den der Benutzer positionieren will. 
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Steuerung des Programmablaufs 


Das FILE-Kommando definiert Dateieigenschaften zur Ablaufzeit eines COBOL-Programms. 3 
Für relative Dateien sind besonders vier Operanden wichtig; ausführliche Beschreibung 
siehe „Kommandosprache‘“, [2]: 


Format des FILE-Kommandos: 
/FILE dateiname [,LINK=linkname] 


[srace=[ Pf 


[.BLKSIZE = | ST 1 


(STD,n) 
YES 
‚SHARUPD = 
[no | 
dateiname Der Name ist anzugeben, unter dem die Datei katalogisiert ist. 
LINK Der Dateikettungsname ist anzugeben (=Linkname =FD-Name). 
= linkname 
SPACE = | Ge al Für p ist die Anzahl der PAM-Seiten für die Primärzuweisung als Vielfa- 
e ches von 3 anzugeben. Für s ist die Anzahl der PAM-Seiten als Vielfaches 3 
von 3 anzugeben. | 
Bei fehlenden Operanden setzt das System für p bzw. s den Standardwert 3. 
BLKSIZE vereinbart einen Standardblock als Puffer, also 2048 Bytes. 
=STD 
=(STD,n) vereinbart einen Pufferbereich von n Standardblöcken (PAM-Seiten). 
n darf maximal 16 sein (das sind 16 x 2048 Bytes = 32768 Bytes). 
SHARUPD Mehrere Prozesse können die Datei gleichzeitig ändern, d.h. sie ist nicht 
= YES gesperrt, sobald sie ein Prozeß im Ausgabemodus eröffnet hat; siehe Ab- 
schnitt 6.5.7. 
=NO Mehrere Prozesse können die Datei nur dann gleichzeitig verwenden, 


wenn sie alle im Lesemodus arbeiten. 


Hinweis: Der Operand BLKSIZE=(STD,n) ermöglicht für n>1 gekettete Ein-Ausgabe 
(chained I-O): Intern werden mit nur einem Makroaufruf bis zu 16 logisch aufeinanderfol- 
gende PAM-Blöcke übertragen. Die Anzahl der Ein-Ausgabe-Operationen wird damit ver- 
ringert, die Verarbeitung beschleunigt. 


Ein-Ausgabe-Zustände 


Gibt der Benutzer in der SELECT-Klausel “FILE STATUS IS datenname” an, so wird der Ein- 
Ausgabe-Zustand der zugehörigen Datei nach jeder Ein-Ausgabeoperation im Feld "daten: 
name” abgelegt. Dieses Feld fragt der Benutzer ab, um Ein-Ausgabeoperationen zu kontrol- 
lieren. Die für eine relative Datei möglichen Werte sind nachfolgend zusammengestellt. 
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Tabelle: Ein-Ausgabe-Zustände 


FILE STATUS-Werte| Bedeutung 


0x 
00 


30 
35 


38 
39 


erfolgreiche Ausführung 
keine weitere Information 
erfolglose Ausführung: Endebedingung 


READ bei Dateiende 


Bei einer READ-Anweisung reicht das RELATIVE KEY-Feld nicht aus, um die 
relative Satznummer aufzunehmen. 


READ nach bereits erkannter AT END-Bedingung 
erfolglose Ausführung: Schlüsselfehler 


WRITE für bereits vorhandenen Satz 


versuchter Zugriff auf einen nicht vorhandenen Datensatz (INVALID KEY-Bedin- 

gung) 

Zwei Möglichkeiten: 

1. Bei sequentiellem WRITE überschreitet die Satznummer die Größe des 
RELATIVE KEY-Feldes. 

2. unzureichende Sekundärzuweisung im FILE-Kommando 


erfolglose Ausführung: permanenter Fehler 


keine weitere Information 


OPEN INPUT/I-O auf eine nicht vorhandene Datei; 

einer der folgenden Gründe liegt vor: 

1. Das FILE-Kommando mit richtigem Linknamen fehlt; 
der Programmlauf wird mit der Meldung 9077 unterbrochen; bei OPEN 
INPUT/I-O wird das FILE-Kommando angefordert; 

2. Datei ist nicht katalogisiert; 

3. Datei ist zwar katalogisiert, aber OPEN und CLOSE wurden noch nicht ausge- 
führt. 


OPEN auf eine Datei, die vorher mit CLOSE WITH LOCK geschlossen wurde 

1. Im FILE-Kommando wurden einer oder mehrere der Operanden FCBTYPE, 
RECFORM oder RECSIZE mit Werten angegeben, die von den entsprechen- 
den expliziten oder impliziten Programmangaben abweichen. 
(FCBTYPE muß PAM sein, RECFORM oder RECSIZE sollten überhaupt nicht 
angegeben werden). 

2. Satzlängenfehler bei Eingabedateien (Katalogüberprüfung). 

3. Satzlänge größer als BLKSIZE-Angabe im FILE-Kommando. 


erfolglose Ausführung: logischer Fehler 


OPEN auf eine bereits eröffnete Datei 
CLOSE auf eine nicht eröffnete Datei 


DELETE oder REWRITE ohne vorherigen erfolgreichen READ bei ACCESS 
SEQUENTIAL 


sequentieller READ nach erfolglosem READ oder START 
READ/START auf eine Datei, die nicht als INPUT oder LO eröffnet wurde 


Es wurde versucht, eine WRITE-Anweisung auszuführen: 

1. für eine Datei, die nicht als OUTPUT oder LO eröffnet ist 

2. für eine Datei im sequentiellen Zugriffsmodus, die nicht als OUTPUT eröffnet 
ist. 

DELETE oder REWRITE auf eine Datei, die nicht mit OPEN LO eröffnet wurde 


sonstige erfolglose Ausführungen 


Systemfehler; keine weitere Information 
entweder Password-Fehler oder OPEN-Fehler 
Fehler bei simultaner Aktualisierung (PAGE LOCK bei SHARUPD=YES) 


Fehler bei simultaner Aktualisierung: die Aufrufsequenz READ — REWRITE/ 
DELETE wurde nicht eingehalten 
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Inhalt einer relativen Datei 


Beispiel 44 
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6.5.5 


6-44 


Indizierte Dateiorganisation 


Mit Hilfe der indizierten Dateiverarbeitung wird es ermöglicht, bestimmte Daten aus einer 
indiziert-sequentiell aufgebauten Datei aufzufinden. Beim Aufbau der Datei werden Sätze in 
aufsteigender Reihenfolge der Satzschlüssel abgespeichert. Ferner werden Indexstufen er- 
zeugt, die beim Verarbeiten der Datei zur Lokalisierung der Datensätze dienen. Der Schlüs- 
sel ist Teil des logischen Satzes (definiert in der FD) und muß vom Anwender in der 
RECORD KEY-Klausel in der ENVIRONMENT DIVISION angegeben werden. Jeder Satz in ei- 
ner indizierten Datei muß daher eindeutig durch seinen Satzschlüssel ansprechbar sein. 


Indizierte Dateien sind nur auf Plattenspeichern möglich. Sie können festes oder variables 
Satzformat haben und können geblockt werden. 


Im BS2000 wird die Zugriffsmethode ISAM zur Bearbeitung von indizierten Dateien verwen- 
det. 


Die folgende Tabelle gibt die COBOL-Klauseln wieder, die für den Zugriff zu indiziert organi- 
sierten Dateien verwendet werden können. 


DVS- |Geräte- |ACCESS- |KEY- Ein-Ausgabe- CLOSE- 
Zugriffs- |typ Klausel Klausel Anweisungen An- 
methode weisung 


SEQUENTIAL | RECORD READ [WITH NO LOCK] [WITH 
KEY [INTO] [AT END] LOCK] 
START [WITH NO LOCK] 
WRITE [FROM] 
READ [WITH NO LOCK] 
[INTO] [AT END] 
START [WITH NO LOCK] 
REWRITE [FROM] 
DELETE 
RANDOM. |RECORD READ [WITH NO LOCK] [WITH 
KEY [INTO] [INVALID KEY] LOCK] 
WRITE [FROM] INVALID KEY 
READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 
WRITE [FROM] [INVALID KEY] 
REWRITE [FROM] [INVALID 
KEY] 
DELETE [INVALID KEY] 


DYNAMIC/ |RECORD READ [WITH NO LOCK] [WITH 
EXTENDED |KEY 


NEXT [INTO] [AT END] LOCK] 
Eine ISAM-Datei besteht aus zwei logischen Einheiten 


ISAM 


READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 

START [WITH NO LOCK] 
[INVALID KEY] 

WRITE [FROM] [INVALID KEY] 
READ [WITH NO LOCK] 

NEXT [INTO] [AT END] 

READ [WITH NO LOCK] 
[INTO] [INVALID KEY] 

START [WITH NO LOCK] 
[INVALID KEY] 

WRITE [FROM] [INVALID KEY] 
REWRITE [FROM] [INVALID 
KEY] 

DELETE [INVALID KEY 


Dateistruktur 


a) den Indexeinträgen in den Indexdatenblöcken 
b) den Datensätzen, die in den Datenblöcken abgespeichert sind. 


Die Indexeinträge und die Datensätze können auf verschiedenen Datenträgern liegen, so- 
fern Privatdatenträger verwendet werden. 
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Blockstruktur 


Indexblöcke haben eine feste Länge von einer PAM-Seite (d.h. 2048 Bytes). Datenblöcke 
können eine Länge zwischen 1 bis 16 PAM-Seiten haben. 


Die Datenblöcke enthalten die logischen Sätze des Benutzers. Die Einträge in den Index- 
blöcken enthalten entweder Zeiger zu den Indexblöcken niederer Indexstufen oder, im Falle 
des Indexblockes der niedersten Stufe, auf die Datenblöcke. 


In den Indexblöcken sind die Eintragungen in aufsteigender Reihenfolge der Schlüssel phy- 
sikalisch hintereinander angeordnet; deshalb werden beim Entstehen neuer Datenblöcke 
stets die Indexeintragungen reorganisiert. 


In den Datenblöcken sind die Sätze in aufsteigender Reihenfolge der Schlüssel verkettet; 
die physikalische Reihenfolge ist beliebig. 


Der Indexblock der höchsten Indexstufe ist immer in der Datei enthalten, auch wenn die Da- 
tei keine Datensätze enthält. 


Zusätzlich zu den Zeigern enthält dieser Indexblock eine ISAM-Etikettinformation von 36 
Bytes Länge, die intern von ISAM verwendet wird. Somit beträgt die Länge des ersten In- 
dexblockes nur 2012 Bytes. 


Aufbau eines Indexblockes: 


Indexeintrag pro Datenblock Indexeintrag pro Datenblock 


Nr. d zuge- | Anzahl d. höchster Nr. d zuge- | Anzahl d höchster 
hörigen freien Bytes | Schlüssel hörigen freien Bytes | Schlüssel 


Datenblocks | i. d. Block i. d Block Datenblocks | i. d. Block L d Block 


a a aaa earen sem. NO en o r ne 
3 Byte 1 Byte 1-255 Byte 3 Byte 1 Byte 1-255 Byte 


Für jede Indexstufe wird ein Block in der Größe einer PAM-Seite im Speicher reserviert. 


Verweist ein Indexeintrag auf einen Indexblock, so enthält das Byte 4 die Anzahl der Index- 
einträge in diesem Block. 


Aufbau eines Datenblockes: 


Zeiger Zeiger 
zum zum 
nächsten nächsten 
Satz Satz 


2 Byte 2 Byte 2 Byte 2 Byte 2 Byte 2 Byte 


Satz- 
Daten 


längen- 
feld 


Der Zeiger des letzten Satzes im Block zeigt auf den ersten Satz des Blockes. 


Aufbau der Schlüssel ' 


Sowohl den Indexblöcken als auch den Datenblöcken geht ein ISAM-spezifischer PAM- 
Schlüssel voran. 


Für Indexblöcke hat er folgenden Aufbau: 


Zeiger zum 
zuletzt 


PAM-Schlüssels verarbeit. 


8 Byte 2 Byte 2 Byte 2 Byte 2 Byte 


Standardmäßiger 
Teil des 


COB1 (BS2000) V2.2A Benutzerhandbuch U254-J-255-1 6-45 


Indizierte Dateien 


Für Datenblöcke hat er folgenden Aufbau: 


Standardmäßiger 
Teil des 


PAM-Schlüssels 


nn mn Neem nm nem Vene en urn) 
8 Byte 2 Byte 2 Byte 2 Byte 2 Byte 


Ist die PAM-Seite nicht belegt, so ist sie in der Tabelle der freien Seiten (GARBAGE COL- 
LECTION) eingetragen; in diesem Fall enthalten die letzten 4 Bytes des Schlüssels die Num- 
mer der nächsten freien PAM-Seite in dieser Tabelle. 


Beispiel für den PAM-Schlüssel eines Datenblockes. 
PAM-Schlüssel 


1. freies Schlüssel d. 
Byte am Anfang d. zuletzt 


1. freies 
Byte im 


Ende d. 1. Satzes verarbeit. Block 


Blockes Satzes 


IT 
NN NN 
SATZ2 rer SATZ 1 SATZ 3 Geet SATZ4 _\freier Bereich‘ 
N N N N 


zugehörige Datensätze. 


Teilen von Datenblöcken 


Blockteilung tritt auf beim Ändern einer Datei, wenn z.B. Sätze in einen Block eingefügt 
werden sollen, im Block aber kein freier Platz mehr zur Verfügung steht. In diesem Fall wird 
der Block an der Stelle, an der ein Satz einzufügen ist, geteilt und die erste Hälfte des Block- 
inhalts in einen neuen Block geschrieben, während die zweite Hälfte einschließlich des 
neuen Satzes im ursprünglichen Block verbleibt und mit den Sätzen des neuen Blocks durch 
Zeiger verkettet wird (siehe [4]). 


Beispiel 46: Blockteilung 


a) ursprüngliche Block ` 


Für den neuen Block wird gleichzeitig ein neuer Indexeintrag im zugehörigen Indexblock 
aufgebaut, und es werden die Indexeintragungen reorganisiert. Gleichzeitig wird die Block- 
reihenfolge reorganisiert, so daß niemals Überlaufkettungen entstehen. 
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DENSITY-Klausel hingewiesen. In dieser Klausel gibt man den Prozentsatz an, zu dem ein 
Datenblock beim Erstellen der Datei mit Datensätzen gefüllt werden soll. Fehlt diese Klausel, 
so nimmt der COB1-Übersetzer einen Füllungsgrad von 85 Prozent an. Die Blockteilung wird 
mit dieser Klausel eingeschränkt. 


de Da eine häufige Blockteilung die Verarbeitung verlangsamt, sei hier auf die APPLY BLOCK 


Steuerung des Programmablaufs 


Das FILE-Kommando definiert Dateieigenschaften zur Ablaufzeit eines COBOL-Programms. 
Für indizierte Dateien sind besonders fünf Operanden wichtig; ausführliche Beschreibung 
siehe „Kommandosprache“, [2]. Format des FILE-Kommandos: 


/FILE dateiname [,LINK=linkname] 
‚SPACE=| P | 
(es P 


YES ] 
NO 
[‚PAD = prozent] 


[BLKSIZE = | au ] 


[‚SHARUPD = | 


dateiname Der Name ist anzugeben, unter dem die Datei katalogisiert ist. 
LINK= Der Dateikettungsname ist anzugeben. 
linkname 


SPACE= | H | Für p ist die Anzahl der PAM-Seiten für die Primärzuweisung als Viel- 
RRE n A aousi. Für s SEHR ZAosebt der PAM-Bölten- Tür die 
Sekundärzuweisung als Vielfaches von 3 anzugeben. 
Bei fehlenden Operanden setzt das System für p bzw. s den Standardwert 3. 


SHARUPD Mehrere Prozesse können die Datei gleichzeitig ändern, d.h., sie ist nicht 

= YES gesperrt, sobald ein Prozeß die Datei im Ausgabemodus eröffnet hat; 
siehe Abschnitt 6.5.7. 

=NO Mehrere Prozesse können die Datei nur dann gleichzeitig verwenden, 


wenn sie alle im Lesemodus arbeiten. 


PAD=prozent Für prozent ist eine Zahl einzusetzen; sie gibt den prozentualen Platzanteil 
der Pufferlänge an, der frei bleiben soll (für spätere Dateierweiterung). 
Standardwert: 15. 


© BLKSIZE 
=STD vereinbart einen Standardblock als Puffer, also 2048 Bytes. 


=(STD,n) vereinbart einen Pufferbereich von n Standardblöcken (PAM-Seiten). 
n darf maximal 16 sein (das sind 16 x 2048 Bytes = 32768 Bytes). 


Ein-Ausgabe-Zustände 


Gibt der Benutzer in der SELECT-Klausel “FILE STATUS IS datenname” an, so wird der Ein- 
Ausgabe-Zustand der zugehörigen Datei nach jeder Ein-Ausgabeoperation im Feld “daten- 
name” abgelegt. Dieses Feld fragt der Benutzer ab, um Ein-Ausgabeoperationen zu kontrol- 
lieren. Die für eine indizierte Datei möglichen Werte sind in der folgenden Tabelle zusam- 
mengestellt. 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-Z55-3 6-47 


Indizierte Dateien 


6-48 


Tabelle: Ein-Ausgabe-Zustände 


FILE STATUS-Werte| Bedeutung 


0x 


00 
04 


38 
39 


erfolgreiche Ausführung 


keine weitere Information 


erfolgreicher READ, aber Satzlängenfehler (siehe COB1 Beschreibung [1]: 
RECORD Klausel 


erfolglose Ausführung: Endebedingung 


READ bei Dateiende 
READ nach bereits erkannter AT END-Bedingung 


erfolglose Ausführung: Schlüsselfehler 


Beim Laden der Datei ist der zu schreibende Schlüssel entweder schon vorhan- 
den oder entspricht nicht der aufsteigenden Reihenfolge. 


WRITE für bereits vorhandenen Satz 
READ auf einen nicht vorhandenen Datensatz (INVALID KEY-Bedingung) 


unzureichende Sekundärzuweisung im FILE-Kommando unter Berücksichtigung 
von BLOCK DENSITY/PAD 


erfolglose Ausführung: permanenter Fehler 


keine weitere Information 


OPEN INPUT/I-O auf eine nicht vorhandene Datei; 

einer der folgenden Gründe liegt vor: 

1. Das FILE-Kommando mit richtigem Linknamen fehlt; 
der Programmlauf wird mit der Meldung 9077 unterbrochen; bei OPEN 
INPUT/I-O wird das FILE-Kommando angefordert; 

2. Datei ist nicht katalogisiert; 

3. Datei ist zwar katalogisiert, aber OPEN und CLOSE wurden noch nicht ausge- 
führt. 


OPEN auf eine Datei, die vorher mit CLOSE WITH LOCK geschlossen wurde 

1. Im FILE-Kommando wurden einer oder mehrere der Operanden FCBTYPE, 
RECFORM, KEYPOS oder KEYLENGTH mit Werten angegeben, die von den 
entsprechenden expliziten oder impliziten Programmangaben abweichen. 


2. Satzlängenfehler bei Eingabedateien (Katalogüberprüfung). 
3. Satzlänge größer als BLKSIZE-Angabe im FILE-Kommando. 


erfolglose Ausführung: logischer Fehler 


OPEN auf eine bereits eröffnete Datei 
CLOSE auf eine nicht eröffnete Datei 


DELETE oder REWRITE ohne vorherigen erfolgreichen READ bei ACCESS 
SEQUENTIAL 


Überschreiten der Bereichsgrenzen: 
1. WRITE oder REWRITE mit unzulässiger Satzlänge 


sequentieller READ nach erfolglosem READ oder START 
READ/START auf eine Datei, die nicht als INPUT oder LO eröffnet wurde 


Es wurde versucht, eine WRITE-Anweisung für eine Datei auszuführen, 
die nicht als OUTPUT oder l-O eröffnet ist. 


DELETE oder REWRITE auf eine Datei, die nicht mit OPEN LO eröffnet wurde 
sonstige erfolglose Ausführungen 


Systemfehler; keine weitere Information 
entweder Password-Fehler oder OPEN-Fehler | 
Fehler bei simultaner Aktualisierung (PAGE LOCK bei SHARUPD=YES) 


1. Nur bei Simultanverarbeitung: Die Aufruffolge READ — REWRITE/DELETE 
wurde nicht eingehalten. 
2. Die Satzlänge ist größer als die Blocklänge. 
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Simultanverarbeitung für Dateien mit indizierter oder relativer Organisation 


Indizierte Dateien 


Die Möglichkeit, eine ISAM-Datei für mehrere Benutzer gleichzeitig zugänglich zu machen, 
ist mit dem Operanden SHARUPD = YES im FILE-Kommando gegeben: 


/FILE dateiname,LINK=..., SHARUPD=YES,... 


Die folgende Tabelle zeigt, welche OPEN-Anweisungen für einen Benutzer B möglich sind, 
nachdem die Datei von Benutzer A bereits eröffnet wurde. 


Zulässige Angaben für Benutzer B 
OPEN- SHARUPD = YES SHARUPD = NO 
Anweisung |INPUT| I-O | OUTPUT INPUT I-O |, OUTPUT 


En 
INPUT BR 


SHARUPD = YES Es 


OUTPUT 


INPUT 


von Benutzer A 
gewählte Angaben 


SHARUPD = NO l-0 


OUTPUT 


Die zulässigen Kombinationen von OPEN-Anweisung und SHARUPD-Angabe sind mit X ge- 
kennzeichnet. 


Aus der Tabelle geht hervor, daß die Angabe von SHARUPD=YES für INPUT-Dateien über- 
flüssig ist, falls alle Anwender OPEN INPUT verwenden. Wenn SHARUPD=YES für INPUT- 
Dateien trotzdem angegeben werden muß, da mindestens ein Anwender OPEN LO verwen- 
det, wird das nachfolgend beschriebene Sperren bzw. Entsperren nicht durchgeführt. 


Die Angabe SHARUPD =YES im FILE-Kommando ist nur für die gleichzeitige Aktualisierung 
von einer oder mehreren ISAM-Dateien (OPEN LO) durch zwei oder mehr Dialogbenutzer 
sinnvoll und auch notwendig. 


Aktualisierungen im Stapelbetrieb sollten nacheinander ablaufen, um sowohl Logikfehler als 
auch Laufzeitverlängerungen zu vermeiden (unnötige Angabe von SHARUPD=YES kostet 
Laufzeit und CPU-Zeit). 


Bei Angabe von SHARUPD=YES im FILE-Kommando wird automatisch auch WROUT=YES 
gesetzt, d.h. die ISAM-Puffer werden nach jeder Änderung sofort zurückgeschrieben. Dies 
ist aus Datensicherheits- und Eindeutigkeitsgründen erforderlich, erhöht aber wesentlich die 
Anzahl der Ein-Ausgaben. 


Um Datenkonsistenz bei gleichzeitiger Aktualisierung einer indizierten Datei durch mehrere 
Benutzer zu gewährleisten, benutzt das COB1-Ablaufzeitsystem den Sperr- und Entsperr- 
mechanismus der DVS-Zugriffsmethode ISAM. Dieser Mechanismus sorgt für das Sperren 
bzw. Entsperren der Datenblöcke, in denen die durch die Anweisungen READ, WRITE, 
REWRITE oder DELETE angesprochenen Datensätze liegen. 
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Datenblock ist das Vielfache einer PAM-Seite (= 2048 Bytes), das durch den BLKSIZE-Para- 
meter im FILE-Kommando implizit oder explizit beim Erzeugen der Datei vereinbart wurde 
(siehe 6.5.6). 


Ist im folgenden von Datensatzsperre die Rede, ist immer die Sperre des ganzen Blocks, in 
dem dieser Datensatz liegt, gemeint. 


Für die Simultanverarbeitung von indizierten Dateien gibt es eine Formaterweiterung der 
READ- bzw. START-Anweisung, die jedoch nur wirksam wird, wenn im FILE-Kommando 
SHARUPD=YES angegeben und die Datei mit OPEN LO eröffnet ist. 


Formaterweiterung für alle Formate 


READ dateiname [WITH NO LOCK]... 
START dateiname [WITH NO LOCK]... 


Regeln für die Simultanaktualisierung 


1. READ- oder START-Anweisung mit WITH NO LOCK-Zusatz: 


Gibt Benutzer AWITH NO LOCK an und ist der entsprechende Datensatz vorhanden, wird 
dieser gelesen bzw. wird auf diesen positioniert, ungeachtet einer etwa durch einen an- 
deren Benutzer bereits gesetzten Sperre. Der Datensatz wird nicht gesperrt. Eine 
REWRITE- bzw. DELETE-Anweisung kann auf einen so gelesenen Satz nicht ausgeführt 
werden. 


Ein simultaner Benutzer B kann denselben Datensatz sowohl lesen als auch aktualisieren. 


2. READ- oder START-Anweisung ohne WITH NO LOCK-Zusatz: 


Gibt Benutzer A WITH NO LOCK nicht an und ist der entsprechende Datensatz vorhan- 
den, kann eine READ- bzw. START-Anweisung nur dann erfolgreich ausgeführt werden, 
wenn der entsprechende Datensatz nicht bereits durch Benutzer B gesperrt ist. War die 
Ausführung der Anweisung erfolgreich, wird der Datensatz gesperrt. Vor Aufhebung der 
Sperre kann Benutzer B denselben oder irgendeinen anderen Datensatz desselben Da- 
tenblocks nur mit WITH NO LOCK lesen oder auf ihn positionieren, er kann aber keinen 
Datensatz dieses Datenblocks aktualisieren. (Hat Benutzer B die Datei mit OPEN INPUT 
eröffnet, kann er Sätze des gesperrten Datenblocks immer lesen.) 


3. Aktualisierung von Datensätzen: 


Soll durch eine REWRITE- oder DELETE-Anweisung ein Datensatz aktualisiert werden, 
muß der betroffene Datensatz unmittelbar zuvor durch eine READ-Anweisung (ohne 
WITH NO LOCK-Zusatz!) gelesen werden. Nach dieser READ- und vor der REWRITE- 
bzw. DELETE-Anweisung darf für dieselbe indizierte Datei keine weitere Ein-Ausgabe- 
Anweisung ausgeführt werden. Zwischen diesen beiden Anweisungen dürfen für andere 
indizierte Dateien, deren FILE-Kommando SHARUPD=YES enthält und die zur gleichen 
Zeit mit OPEN LO eröffnet sind, nur READ- oder START-Anweisungen mit WITH NO 
LOCK-Zusatz ausgeführt werden. Anweisungen für andere indizierte Dateien (ohne 
SHARUPD=YES und OPEN |-O) dürfen ausgeführt werden. 


Ein Verstoß gegen diese Vorschriften führt zu einer erfolglosen REWRITE- bzw. DELETE- 
Anweisung mit FILE STATUS 94. 
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© 4. Wartezeiten bei einer Sperre: 


Hat Benutzer A aufgrund einer erfolgreich ausgeführten READ- oder START-Anweisung 
einen Datensatz gesperrt und versucht Benutzer B auf denselben Datensatz oder irgend- 
einen anderen aus demselben Datenblock eine READ- oder START-Anweisung ohne 
WITH NO LOCK-Zusatz auszuführen, so führt dies für letzteren nicht sofort zum Mißer- 
folg. Benutzer B wird, falls er mit einem Betriebssystem BS2000 ab der Version 7.5 arbei- 
tet, in eine Warteschlange eingeordnet, in der er auf die Freigabe der Sperre durch Be- 
nutzer A wartet. Erst wenn eine maximale Wartezeit abgelaufen und die Entsperrung in- 
nerhalb dieser Frist nicht erfolgt ist, gilt die Anweisung als erfolglos und FILE STATUS 93 
wird gesetzt. Wurde die Sperre vor Ablauf der Wartezeit aufgehoben, so wird Benutzer B 
mit dem erfolgreichen Aufruf fortgesetzt. 


Falls Benutzer B ein Betriebssystem BS2000 in Version 7.1 und niedriger benutzt, werden 
intern maximal 99 Wiederholungen der Anweisung versucht; ist auch die letzte erfolglos, 
wird FILE STATUS 93 gesetzt. 


5. Freigabe eines gesperrten Datensatzes: 


Ein Benutzer behält eine Datensatzsperre solange bei, bis er eine der folgenden Anwei- 
sungen ausführt: 


© — erfolgreiche REWRITE- oder DELETE-Anweisung auf den gesperrten Datensatz 


— WRITE-Anweisung auf eine indizierte Datei, deren FILE-Kommando SHARUPD=YES 
enthält und die mit OPEN LO eröffnet ist (d.h., auf dieselbe Datei, die den gesperrten 
Datensatz enthält, oder auf eine andere indizierte Datei; Entsperrung erfolgt auch bei 
Auftreten der INVALID KEY-Bedingung) 


— READ- oder START-Anweisung mit WITH NO LOCK-Zusatz auf dieselbe Datei (Ent- 
sperrung erfolgt auch bei Auftreten der AT END- oder INVALID KEY-Bedingung) 


— READ- oder START-Anweisung ohne WITH NO LOCK-Zusatz auf einen Datensatz in- 
nerhalb eines anderen Datenblocks derselben Datei (Entsperrung erfolgt auch bei 
Auftreten der AT END- oder INVALID KEY-Bedingung) 


— READ- oder START-Anweisung ohne WITH NO LOCK auf eine andere indizierte Datei, 
deren FILE-Kommando SHARUPD=YES enthält und die mit OPEN LO eröffnet ist 
(Entsperrung erfolgt auch bei Auftreten der AT END- oder INVALID KEY-Bedingung) 


— CLOSE-Anweisung auf dieselbe Datei. 


Eine Anweisung für eine indizierte Datei kann also die Aufhebung einer Datensatzsperre 
auf einer anderen indizierten Datei bewirken. 


- Hinweise: 


1. Soll in einem Programm eine indizierte Datei (SHARUPD = YES und OPEN LO) bearbeitet 
werden, sollte für diese Datei eine „USE AFTER STANDARD ERROR"-Prozedur vorgese- 
hen werden. In dieser Prozedur können die simultanverarbeitungsspezifischen FILE STA- 
TUS-Werte 93 (Datensatz von einem simultanen Benutzer gerade gesperrt) und 94 
(REWRITE- oder DELETE-Anweisung ohne vorherige READ-Anweisung) abgefragt und 
angemessen verarbeitet werden. 
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. Es sollte immer berücksichtigt werden, daß aufgrund des Block-Sperrmechanismus von 


ISAM beim Sperren eines Datensatzes auch zugleich alle Datensätze desselben Blocks 
für alle simultanen Benutzer gesperrt werden. 


. Für einen Benutzer kann höchstens ein Datenblock gesperrt, d.h., vor Aktualisierung 


durch andere Benutzer geschützt sein. Dies gilt auch dann, wenn er mehrere indizierte 
Dateien (alle SHARUPD=YES) im Modus OPEN LO eröffnet hat. 


. Eine „Deadlock”-Situation (gegenseitiges Sperren von Datenblöcken durch verschiedene 


Benutzer) ist ausgeschlossen, da nur ein einziger Block aller ISAM-Dateien (alle 
SHARUPD=YES) gesperrt sein kann. 


. Falls zwischen einer READ- und einer REWRITE- bzw. DELETE-Anweisung für einen Da- 


tensatz ein Zugriff auf einen anderen Datenblock derselben oder einer anderen indizierten 
Datei erfolgt, der gleichzeitig eine Entsperrung des zuvor gesperrten Datenblocks zur 
Folge hat, muß der Datensatz vor Ausführung der REWRITE- bzw. DELETE-Anweisung 
noch einmal gelesen werden. Da der betroffene Datenblock in der Zwischenzeit für an- 
dere Benutzer entsperrt war, könnte der Inhalt des Datensatzes verändert worden sein 
(siehe Beispiel 46a(a)). 


Erfolgt der Zugriff auf den anderen Datenblock bzw. die andere Datei ohne Sperrmecha- 
nismus, könnten die dadurch bereitgestellten Daten während der Verarbeitung bereits 
wieder durch simultane Benutzer verändert worden sein, ehe die REWRITE- bzw. 
DELETE-Anweisung ausgeführt worden ist (siehe Beispiel 46 a(b)). 


. Um zu vermeiden, daß ein Benutzer möglicherweise mit nicht mehr aktuellen Daten ar- 


beitet, sollte der WITH NO LOCK-Zusatz nur dann verwendet werden, wenn dies unbe- 
dingt erforderlich ist. 


. Ein gesperrter Datensatz (Datenblock) führt bei simultanen Benutzern, die auf denselben 


Datensatz oder einen anderen desselben Blocks zugreifen wollen, zu Wartezeiten. Um 
diese so kurz wie möglich zu halten, sollte die Sperre sobald wie möglich wieder aufge- 
hoben werden. Wird die Sperre nicht rechtzeitig aufgehoben, läuft die Wartezeit ab, und 
das Programm verzweigt in die vorgesehene USE-Prozedur, sofern vorhanden (siehe Bei- 
spiel 46b) oder wird abgebrochen (mit Meldung 9067, FILE STATUS 93 und DVS-Fehler- 
schlüssel DAAA). 
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Beispiel 46a: Lesen und Zurückschreiben in Datei ISAM1, wenn vor dem Zurückschrei- 
© ben Daten aus einer Datei ISAM2 benötigt werden: 


aa) Ohne WITH NO LOCK-Zusatz: zweimalige READ-Anweisung auf dieselbe Datei erfor- 
derlich, dafür Sperrzeiten kürzer: 


Lesen eines Datensatzes in 
ISAM1 und Zwischenspeichern in 
WORKI, betroffener Datenblock 
in ISAM1 gesperrt; 

Lesen eines Datensatzes in 
ISAM2, Aufhebung der Sperre in 
ISAMI1, Sperrung des betroffenen 
Datenblocks in ISAM2; 


Erneutes Lesen des Datensatzes 
in ISAM1, Aufhebung der Sperre 
in ISAM2, Sperrung des betroffe- 
nen Datenblocks in ISAM1; 


Zurückschreiben des Datensatzes 
in ISAMI1, Aufhebung der Sperre 
in ISAM1. 


© ab) Mit WITH NO LOCK-Zusatz: nur eine READ-Anweisung auf dieselbe Datei erforderlich, 
dafür Sperrzeiten länger: | 


Lesen eines Datensatzes in 
ISAMI, 

betroffener Datenblock gesperrt; 
Lesen eines Datensatzes in 
ISAM2, 

betroffener Datenblock nicht 
gesperrt; 


Zurückschreiben des Satzes in 
ISAMI1, Sperre wird aufgehoben. 
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Beispiel 46b: Verzweigen zu einer „USE AFTER STANDARD ERROR” -Prozedur: 


Verzweigen auf 
die Anweisung 
hinter der feh- 
lerverursachen- 
den Anweisung. 
Wie der aufge- 
tretene Fehler 
sinnvoll zu be- 
handeln ist, 
muß für den je- 
weiligen An- 
wendungsfall 
entschieden 
werden. 
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Relative Dateien 


Dateien mit relativer Organisation können — ebenso wie indizierte — von mehreren Benut- 
zern simultan aktualisiert werden, wenn das FILE-Kommando SHARUPD=YES enthält und 
die Datei mit OPEN LO eröffnet ist. 


Um Datenkonsistenz bei simultaner Aktualisierung zu ermöglichen, benutzt das COB1-Ab- 
laufzeitsystem den Sperr- und Entsperrmechanismus der DVS-Zugriffsmethode UPAM. Die 
Zugriffskoordinierung erfolgt hier (anders als bei ISAM) dateispezifisch. Dies hat u.a. zur 
Folge, daß Anweisungen für eine Datei keine Auswirkungen für eine andere Datei haben. 


Die Sperrung betrifft — wie bei ISAM — nicht einen einzelnen Datensatz, sondern den ge- 
samten Datenblock, in dem sich der Datensatz befindet (siehe „Indizierte Dateien“). 


Wie für indizierte Dateien gibt es auch für relative Dateien (nur mit SHARUPD=YES, OPEN 
I-O) für alle Formate der READ- bzw. START-Anweisung die Erweiterung WITH NO LOCK 
(Beschreibung siehe „Indizierte Dateien“). 


Regeln für die Simultanaktualisierung 


1. Das Lesen und Positionieren ohne bzw. mit WITH NO LOCK-Zusatz erfolgt wie bei indi- 
zierten Dateien. 


2. Aktualisierung von Datensätzen: 


Soll durch eine REWRITE- bzw. DELETE-Anweisung ein Datensatz aktualisiert werden, 
muß der betroffene Datensatz (wie bei indizierten Dateien) unmittelbar zuvor durch eine 
READ-Anweisung (ohne WITH NO LOCK-Zusatz) gelesen werden. Zwischen beiden An- 
weisungen darf für dieselbe Datei keine weitere Anweisung ausgeführt werden. Anwei- 
sungen für andere relative Dateien sind jedoch — anders als bei indizierten Dateien — 
zulässig (aufgrund der dateispezifischen Zugriffskoordinierung). 


3. Wartezeiten bei einer Sperre 


Die maximale Wartezeit auf die Freigabe eines gesperrten Blocks beträgt 999 Sekunden 
(Zeitbedingung, keine Wiederholungsschleife wie bei ISAM). Nach Ablauf dieser Zeit 
wird, falls vorhanden, die „USE AFTER STANDARD ERROR" Prozedur angesprungen 
oder das Programm mit der Fehlermeldung 9067 beendet (FILE STATUS 93 und DVS-Feh- 
lerschlüssel D9BO oder D9B1). 


4. Freigabe eines gesperrten Datensatzes 


Die Entsperrung eines gesperrten Datenblocks kann mit denselben Anweisungen bewirkt 
werden wie bei indizierten Dateien, jedoch müssen sich alle Anweisungen auf dieselbe 
Datei beziehen. 


Im Unterschied zu indizierten Dateien bewirkt also eine Anweisung für eine relative Datei 
keine Entsperrung von Datenblöcken einer anderen relativen Datei. 


Hinweise 
1. Soll in einem Programm eine relative Datei (mit SHARUPD=YES, OPEN LO) verarbeitet 


werden, sollte für diese Datei eine „USE AFTER STANDARD ERROR" Prozedur vereinbart 
werden (siehe „Indizierte Dateien“). 
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2. Anders als bei indizierten Dateien (mit SHARUPD=YES, OPEN LO) kann bei simultaner 
Verarbeitung mehrerer relativer Dateien (alle mit SHARUPD=YES, OPEN LO) für jeden 
Benutzer je ein Datensatz in beliebig vielen Dateien gleichzeitig gesperrt (!) werden 
(innerhalb einer Datei immer nur 1 Satz). Dadurch kann es zu sogenannten „Deadlock”- 
Situationen kommen (siehe Beispiel 46c). 


3. Wie bei indizierten Dateien sollte auch bei relativen Dateien die Sperre auf Datensätzen 
(Datenblöcken!) so schnell wie möglich aufgehoben werden, um die damit verbundenen 
Wartezeiten für andere Benutzer möglichst kurz zu halten. 


Beispiel 46c: „Deadlock” 


Beide Benutzer warten auf Freigabe des jeweiligen Blocks („Deadlock“). 


Die maximale Wartezeit auf die Freigabe eines gesperrten Blocks beträgt 999 Sekunden 
(Zeitbedingung, keine Wiederholungsschleife wie bei ISAM). Nach Ablauf dieser Zeit wird, 
falls vorhanden, die „USE AFTER STANDARD ERROR" Prozedur angesprungen oder das 
Programm mit der Fehlermeldung 9067 beendet (FILE STATUS 93 und DVS-Fehlerschlüssel 
D9B0 oder D9B1). 
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Sortieren/Mischen 


Sortieren und Mischen 


Mit Hilfe der SORT-Anweisung sortiert der Benutzer eine oder mehrere Dateien nach einer 
Reihe von Sortierschlüsseln. Mit Hilfe der MERGE-Anweisung mischt er mehrere sortierte 
Dateien zu einer Datei zusammen. 


Zum Sortieren verwendet der COB1-Übersetzer die Sortierfunktion des BS2000 SORT [17]). 
Das Mischen wird vom COB1-System selbst durchgeführt. 


Der COB1-Übersetzer legt im Objektprogramm einen Bereich an, in dem er die notwendigen 
Steueranweisungen für den Sortiervorgang des Dienstprogramms SORT bzw. für den 
Mischvorgang der COB1-Mischroutine generiert. 


Die ausführliche Beschreibung der Anweisungen SORT und MERGE steht im Manual „COB1 
Sprachbeschreibung“, [1]. 


Dateien für das Sortierprogramm 

Für einen Sortiervorgang werden folgende Dateien benötigt: 

1. Sortierdatei: 
In dieser Datei (Arbeitsbereich) werden Datensätze sortiert. Nötig ist die Klausel 
SELECT sortierdatei ASSIGN TO DISC. 


Außerdem muß diese Datei in der Sortierdateierklärung (SD) der DATA DIVISION be- 
schrieben sein. Mit der Anweisung 


SORT sortierdateiname.... 

wird auf diese Datei zugegriffen. 

Ohne daß der Benutzer ein FILE-Kommando angibt, wird diese Datei unter dem Namen 
SORTWORK.Djittt.TSnnnn (jj Jahr, ttt laufender Tag des Jahres, nnnn Prozeßfolgenum- 


mer) katalogisiert. Der Linkname ist SORTWK. Nach normalem Sortierende wird diese 
Datei gelöscht. 


Die Größe der Sortierdatei beim Einrichten ohne FILE-Kommando beträgt standardmäßig 
24 x 16= 384 PAM-Seiten. (Durch Versorgen von SORT-Sonderregistern kann dieser Wert 
beeinflußt werden.) Demnach ist die Primärzuweisung 384 PAM-Seiten. Die Sekundärzu- 
weisung ist '/, davon, also 96 PAM-Seiten. 


Mit dem Kommando 
/FILE dateiname,LINK=SORTWK,SPACE=(p,s) 


kann der Benutzer den Dateinamen und die Größe der Sortierdatei selbst bestimmen 
(siehe Manual „SORT“, [17], Kapitel 4). Empfehlenswert ist dies bei großen Dateien. Nach 
normalem Sortierende wird diese Datei geschlossen, aber nicht gelöscht. 


SORT-Sonderregister (siehe Manual „COB1 Beschreibung“, [1]): 
Vor dem Sortieren kann der Programmierer folgende SORT-Sonderregister versorgen: 


— SORT-FILE-SIZE: mit der Anzahl der Sätze. 
— SORT-MODE-SIZE: mit der durchschnittlichen Satzlänge. 


Diese beiden Register verwendet das Dienstprogramm SORT zur Berechnung der Da- 
teigröße,d.h., der Programmierer kann indirekt den SPACE-Operanden beeinflussen. 


— SORT-CORE-SIZE: mit der gewünschten Größe der internen Arbeitsbereiche in 
Anzahl Byte. 


Durch diese Angaben kann der Programmablauf beeinflußt werden. 


Bei fehlender Angabe werden standardmäßig 24 * 4096 Byte, d.h. 24 Seiten zu je 4 K 
angenommen. Näheres siehe Manual SORT [17] Optimierung von Sortierläufen. 
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Nach SORT-, RELEASE- und RETURN-Anweisungen kann der Programmierer das SORT- 
Sonderregister 


SORT-RETURN 
abfragen: „0” zeigt das ordnungsgemäße Sortieren an, „1“ das fehlerhafte Sortieren. Diese 


Abfrage empfiehlt sich, da bei fehlerhaftem Sortieren der Programmlauf nicht abgebrochen 
wird. 


2. Eingabedatei(en): 
Ist keine Eingabeprozedur definiert, generiert der COB1-Übersetzer einen OPEN INPUT 
bzw. einen READ...AT END für die angegebene Datei. Jede Eingabedatei muß im CO- 
BOL-Programm definiert sein. 


Die Linknamen SORTIN und SORTINnn (01 < nn < 99) dürfen nicht innerhalb eines Sor- 
tierprogramms verwendet werden. 


3. Ausgabedatei: 


Ist keine Ausgabeprozedur definiert, generiert der COB1-Übersetzer einen OPEN OUTPUT 
bzw. einen WRITE für die angegebene Datei. Die Ausgabedatei muß im COBOL-Pro- 
gramm definiert sein. 


Der Linkname SORTOUT darf nicht innerhalb eines Sortierprogramms verwendet wer- 
den. 


Fixpunktausgabe für Sortierprogramme und Wiederanlauf 


Die Angabe der RERUN-Klausel (Format 2) veranlaßt die Ausgabe spezieller Fixpunkte für 
Sortierdateien. Möglich ist auch die Angabe der APPLY CHECKPOINT-Klausel; sie wird in- 
tern in eine RERUN-Klausel aufgelöst. Fixpunkte enthalten Informationen über den Zustand 
des Sortiervorgangs. Sie sind notwendig, um ein vom Benutzer oder wegen Anlagenstörung 
abgebrochenes Programm wieder starten zu können, ohne den gesamten bisherigen Pro- 
grammablauf zu wiederholen. Die Ausgabe von Sortier-Fixpunkten empfiehlt sich vor allem 
bei großen Mengen von zu sortierenden Daten, da auf diese Weise eine erfolgte Vorsortie- 
rung bei Programmabbruch nicht verloren geht. 


Format 2 der RERUN-Klausel: 
RERUN ON herstellername EVERY SORT OF sortierdateiname 


herstellername: SYSnnn (000 < nnn < 200) 


Fixpunkte werden in eine Fixpunktdatei (siehe 6.7) ausgegeben, die vom Sortierprogramm 
mit dem Standard-Dateinamen SORTCKPT.Djjttt.Tnnnn (jj Jahr, ttt laufender Tag des Jah- 
res, nnnn tsn des laufenden Prozesses) und Standard-Linknamen SORTCKPT eingerichtet 
wird (siehe Manual „BS2000 SORT“ [17]). Mit dem SPACE-Operanden im Kommando 


/FILE dateiname,LINK=SORTCKPT,SPACE = (p,s) 
kann der Anwender die Größe dieser Datei selbst bestimmen. Die Fixpunktausgabe wird auf 


SYSOUT protokolliert (Meldung E301; siehe Abschnitt 6.7 und Manual „Systemmeldungen“, 
[18]). Den Zeitpunkt der Fixpunktausgabe kann der Anwender nicht selbst bestimmen. 


Bei normaler Beendigung des Sortiervorgangs wird die Fixpunktdatei geschlossen, freigege- 
ben und gelöscht, so daß der Benutzer keinen Zugriff auf sie hat. 


Wird ein Sortierprogramm fehlerhaft abgebrochen, so kann man den Lauf beim zuletzt ge- 
schriebenen Fixpunkt wieder starten: Mit Hilfe der auf SYSOUT protokollierten Informatio- 
nen gibt man dazu das RESTART-Kommando; siehe Abschnitt 6.7 und Manual „Kommando- 
sprache“, [2]. 
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Fixpunktausgabe und Wiederanlauf 


Allgemeines 


Fixpunkte werden von COB1 in eine externe Fixpunktdatei ausgegeben (ggf. zwei Fixpunkt- 
dateien, siehe unten). Ein Fixpunkt umfaßt Kennungsinformationen, Programmzustand, dazu 
bezogenen Systemzustand und virtuelle Speicherinhalte. Dies wird für einen möglichen spä- 
teren Wiederanlauf benötigt. 


Durch Ausgabe solcher Fixpunkte kann ein absichtlich oder wegen Anlagenstörung abge- 
brochenes Programm zu beliebiger Zeit an der Stelle fortgesetzt werden, an der ein Fixpunkt 
ausgegeben wurde. Die Ausgabe von Fixpunkten empfiehlt sich vor allem bei Programmen 
mit langer Laufzeit, ist jedoch nur dann sinnvoll, wenn die Wiederherstellung der Ausgangs- 
daten bei einem eventuellen Wiederanlauf möglich ist. 


Fixpunktausgabe 


Die Ausgabe von Fixpunkten veranlaßt der Benutzer mit der RERUN-Klausel. Dabei kann er 
den Zeitpunkt der Fixpunktausgabe bestimmen; eine Ausgabe bei jedem Spulenwechsel für 
eine bestimmte Datei ist möglich sowie auch die Ausgabe nach Verarbeitung einer be- 
stimmten Anzahl von Sätzen einer Datei. 


Format 1 der RERUN-Klausel: 


REEL 
| END OF KEN | OF däteiname 


ganzzahl-1 RECORDS 


herstellername Angabe SYSnnn (0 < nnn < 244) 
COB1 erzeugt entweder eine Fixpunktdatei oder zwei Fixpunktdateien: 
a) 1 Fixpunktdatei, falls nnn < 200. 
COB1 bildet den Standardnamen progid.RERUN.SYSnnn sowie den 
Linknamen SYSnnn. 


b) 2 Fixpunktdateien, falls nnn > 200. 
COB1 bildet die Standardnamen progid.RERUN.SYS.nnnA, 
progid.RERUN.SYS.nnnB und die Linknamen SYSnnnA und SYSnnnB. 
Fixpunkte werden alternierend auf eine der beiden Fixpunktdateien aus- 
gegeben. 


RERUN [ON herstellername] EVERY 


Fixpunktausgabe in eine einzige Datei (SYS-Nr. <200): Fixpunkte werden fortlaufend ge- 
schrieben. Bei Dateiende wird intern weiterer Speicherbereich angefordert. 


Fixpunktausgabe in zwei Dateien (SYS-Nr. >200): Fixpunkte werden alternierend in zwei 
Dateien geschrieben, wobei ein zuvor geschriebener Fixpunkt überschrieben wird. 


Das Format 2 der RERUN-Klausel ist nur für Sortierdateien möglich und wird deshalb im Ab- 
schnitt 6.6 beschrieben. 


Nach jeder fehlerfreien Ausgabe eines Fixpunktes werden dem Benutzer auf SYSOUT Infor- 
mationen für einen eventuellen Wiederanlauf gemeldet. 


Format der Meldung (siehe Manual „Systemmeldungen“, [18]): 
E301 CHECKPOINT # aa, HALF PAGE # =bb, DATE =cc, TIME =dd:ee 


aa Fixpunkt-Nummer 

bb PAM-Seiten-Nummer 

cc mm/tt/jj: Monat/Tag/Jahr 
dd Stunde 

ee Minute 
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6.7.3 Wiederanlauf 


Mit dem RESTART-Kommando startet der Benutzer ein ablauffähiges Programm bei einem 
durch einen Fixpunkt festgehaltenen Zustand. 


Format des RESTART-Kommandos (siehe Manual „Kommandosprache“, [2]): 
RESTART dateiname,seite [‚ LOAD] 


dateiname Name der Fixpunktdatei (COBOL-Standardname; siehe 6.7.2) 

seite Nummer der PAM-Seite, in der die Fixpunktsätze beginnen 

LOAD Nach dem Laden wird das Programm nicht gestartet, sondern es wird in den 
Kommandomodus übergegangen. 


Hinweise: 


1. Für den Wiederanlauf muß der Benutzer alle Betriebsmittel zuweisen, die vom wiederan- 
laufenden Programm benötigt werden (FILE-Kommandos), da bei Ausgabe des Fixpunk- 
tes Angaben über benötigte Betriebsmittel nicht sichergestellt werden. 


2. Der Zustand der Benutzerdaten wird beim Wiederanlauf nicht automatisch wiederherge- 
stellt. Also muß der Benutzer selbst seine Daten so wie zum Zeitpunkt der Fixpunktaus- 
gabe in geeigneter Weise zur Verfügung stellen. 
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Anhang 1: Meldungen des COB1-Systems 


Um die Diagnose von fehlerhaften COBOL-Programmen zu ermöglichen, wird vom 
COBI-Übersetzer und vom COB1-Ablaufzeitsystem eine umfassende Protokollierung aller 
Fehler vorgenommen. Dabei sind zwei Arten von Fehlerprotokollierung möglich: 


1. Fehlermeldungen, die sich auf Fehler im zu übersetzenden COBOL-Programm 
beziehen und in einer Fehlerliste am Ende der Übersetzung ausgegeben werden. 


Diese Meldungen haben alle folgendes Format: 


Msg-Index Source Seq.No Severity Code Error Message 


Msg-Index: 5-stellige Fehlerkennungsnummer, wobei die ersten beiden 
Ziffern das COB1-Übersetzersegment bezeichnen, das den Fehler 
erkannt hat. 


Source Seq.No: Zeilenfolgenummer der Zeile, in der der Fehler auftrat 
Severity Code: Angabe über die Fehlerklasse 
Error Message: Genauere Beschreibung des Fehlers; eventuell Umgehungsmög- 


lichkeit (genauere Angaben sind der Beschreibung der Fehlermel- 
dungsliste unter Punkt 2.3.4.4 zu entnehmen.) 


Nach der Überprüfung der Quelldateneingabe werden die Fehlermeldungen ausgege- 
ben in der Folge 


— Identification Division 
— Environment Division 
— Data Division 

— Procedure Division 


und innerhalb dieser Ordnung nach aufsteigender Quellprogramm-Zeilennummer. 


Durch Angabe des COBRUN-Operanden ERDICT hat der Benutzer die Möglichkeit, sich 
jederzeit eine aktuelle Liste aller Fehlermeldungen zu erstellen, die vom COB1-Überset- 
zer erzeugt werden können. Beim Aufruf des COB1-Übersetzers und der Angabe 
COBRUN ERDICT ist kein Quellprogramm notwendig. 


Die Ausgabe der Fehlermeldungen erfolgt in englischer Sprache. Sollen die Fehlermel- 
dungstexte in deutscher Sprache ausgegeben werden, so muß der COBRUN-Operand 
DIAGTEXT = GERMAN angegeben werden. 


Das folgende Beispiel zeigt eine Kommandofolge, mit der eine Liste aller 
COB1-Fehlermeldungen in deutscher Sprache erzeugt werden kann. 
Beispiel: 


/PARAM CODE=2 

/EXEC $COB1 

COBRUN ERDICT, DIAGTEXT=GERMAN 
END 
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2. Fehlermeldungen, die durch Konflikte des COB1-Übersetzers bzw. des COB1-Ablauf- 
zeitsystems mit der Systemumgebung auftreten. Jede Meldung enthält den Namen des 
Moduls, bei dessen Bearbeitung sie verursacht wurde. 


Diese Meldungen haben folgendes Format: 


90 
XX Meldungstext 
91 


Dabei bedeutet: 


90 
| I 4-stelliges Meldungskennzeichen 
91 


Im gleichen Format werden auch einige Meldungen ausgegeben, die über Verlauf und 
Abschluß von Übersetzung und Anwenderprogrammablauf informieren. 


Die Angabe des COBRUN-Operanden SSEQ#GEN bewirkt, daß die Meldungen 90xx und 
91xx ergänzt werden mit der von COB1 vergebenen Quellprogramm-Zeilennummer der An- 
weisung, bei deren Ausführung die Meldung ausgegeben wurde. 
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Die folgende Liste enthält Meldungen des COB1-Übersetzers bzw. des Ablaufszeit- 
systems, und zwar: 


— Meldungsnummer mit Meldungstext, englisch und deutsch; dies wird über SYSOUT 
ausgegeben; 

— Erläuterungen, die für jede Meldung in gleicher Weise strukturiert sind (Typ — Bedeu- 
tung — Verhalten — Maßnahme). 


9001 aaa TOTAL FLAGS: bbb / SI=ccc / SO=ddd / S1=eee / S2=fff / S3=ggg 
9001 aaa FEHLER GESAMT: bbb / SI=ccc / SO=ddd / S1=eee / S2=fff / S3=ggg 


9002 
9002 


9003 
9003 


9004 
9004 


9005 
9005 


9006 
9006 


A-2 


Typ 

Hinweis 

Bedeutung 

aaa: Programmname 

bbb: Gesamtanzahl der Fehler 

ccc: Anzahl der Severity-Code-I-Fehler 
ddd: Anzahl der Severity-Code-O-Fehler 
eee: Anzahl der Severity-Code-1-Fehler 
fff: Anzahl der Severity-Code-2-Fehler 
ggg: Anzahl der Severity-Code-3-Fehler 


COMPILATION OF aaa ABORTED 
DIE UEBERSETZUNG VON aaa WURDE ABGEBROCHEN 
Typ 
Anwenderfehler oder Systemfehler oder COB1-Fehler 
Bedeutung 
aaa: Programmname 
Maßnahme 
Fehler beheben, nochmal übersetzen; ggf. Systemberater verständigen 


LIBRARY aaa IS LOCKED. UNLOCK AND RESUME (R) 
DIE BIBLIOTHEK aaa IST GESPERRT. BITTE SPERRE AUFHEBEN UND RESUME (R) EINGEBEN 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Bibliotheksname 
Verhalten 
Übersetzung unterbrochen 
Maßnahme 
Sperre aufheben und Kommando /R eingeben 


COMPILATION OF aaa USED bbb CPU SECONDS 
DIE UEBERSETZUNG VON aaa BENOETIGTE bbb CPU SEKUNDEN 
Typ 
Hinweis 
Bedeutung 
aaa: Programmname 
bbb: Anzahl der Sekunden 


INCORRECT COBRUN/END CARD OR END CARD MISSING 
DIE COBRUN/END ANWEISUNG IST FALSCH ODER ES FEHLT DIE END ANWEISUNG 
Typ 
Anwenderfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
COBRUN- oder END-Anweisung korrigieren bzw. einfügen; nochmals übersetzen 


REASSIGNMENT OF SYSDTA NOT POSSIBLE 
EINE NEUZUWEISUNG VON SYSDTA IST NICHT MOEGLICH 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 
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9007 LIBRARY aaa HAS INVALID/NOT SUPPORTED TYPE. REASSIGN AND RESUME (R) 
9007 DIE BIBLIOTHEK aaa HAT EINEN UNGUELTIGEN/NICHT UNTERSTUETZTEN TYP. 
BITTE NEU ZUWEISEN UND (R) EINGEBEN 


Typ 

Anwenderfehler 

Bedeutung 

aaa: Bibliotheksname 

Verhalten 

Übersetzung unterbrochen 

Maßnahme 

richtige Bibliothek zuweisen und Kommando /R eingeben 


9011 ERROR ON EXIT FROM THE USE-PROCEDURE ON PC: aaa 
9011 FEHLER BEIM VERLASSEN DER USE-PROZEDUR AUF PC: aaa 

Typ 

Anwenderfehler 

Bedeutung 

aaa: Befehlszähler 

Verhalten 

Programm abgebrochen 

Maßnahme 

Programm korrigieren 


9012 ATTEMPTING I/O OPERATION BEFORE INTERNAL FILE IS OPENED 
9012 BEVOR EINE INTERNE DATEI GEOEFFNET WURDE WIRD VERSUCHT EINE EIN/AUSGABE OPERATION 
DURCHZUFUEHREN 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahmen 
Systemberater verständigen 


9013 PARAMETER aaa NOT APPLICABLE TO THIS OPERATING SYSTEM 
9013 DER OPERAND aaa IST FUER DAS BETREFFENDE BETRIEBSSYSTEM NICHT ANWENDBAR 
Typ 
Anwenderfehler 
Bedeutung 
aaa: COBRUN-Operand 
Verhalten 
Übersetzung läuft weiter; Operand wird übergangen 


9015 ERROR OCCURRED LOADING OVERLAY aaa 
9015 BEIMLADEN DES OVERLAYS aaa TRAT EIN FEHLER AUF 
Typ 
Systemfehler 
Bedeutung 
aaa: Nummer des Overlays 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


9016 INSUFFICIENT SPACE FOR DYNAMIC ALLOCATION OF PAGES 
9016 FUER DIE DYNAMISCHE SEITENZUWEISUNG IST NICHT GENUEGEND SPEICHERPLATZ VORHANDEN 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 
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9017 
9017 


9018 
9018 


9019 
9019 


9020 
9020 


9021 
9021 


9022 
9022 


9023 
9023 


A-4 


COMPILATION INITIATED; VERSION IS aaa 
BEGINN DER UEBERSETZUNG; VERSION aaa 
Typ 
Hinweis 
Bedeutung ` 
aaa: Versionsnummer des Compilers 


EAM WORKFILE/EAM * CANNOT BE OPENED 
DIE EAM-ARBEITSDATEI BZW. DIE EAM-DATEI 3 KANN NICHT GEOEFFNET WERDEN 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


UNRECOVERABLE ERROR ON EAM X 
NICHT BEHEBBARER FEHLER AN DER EAM-DATEI e 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


ERROR WHILE WRITING TO LIST-EAM OR SYSLST 
WAEHREND DES SCHREIBENS NACH LIST-EAM ODER NACH SYSLST TRAT EIN FEHLER AUF 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


ERROR IN aaa MACRO CODE IS bbb 
FEHLER IN MAKRO aaa FEHLER CODE IST bbb 
Typ 
Systemfehler 
Bedeutung 
aaa: Name des Systemmakros 
bbb: Inhalt von Register 15 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


aaa ERROR ON SAVLST FILE 
aaa FEHLER AN EINER SAVLST DATEI 
Typ 
Systemfehler 
Bedeutung 
aaa: DVS-Fehler-Code 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 
UNRECOVERABLE EAM ERROR. PLEASE RECOMPILE 
ES TRAT EIN NICHT BEHEBBARER EAM FEHLER AUF. BITTE DEN UEBERSETZUNGSLAUF WIEDERHOLEN 
Typ 
Systemfehler 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
nochmal übersetzen; ggf. Systemberater verständigen 
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9024 NOT ENOUGH MAIN MEMORY FOR COMPILATION. aaa MORE BYTES NEEDED 
© 9024 FUER DIE UEBERSETZUNG IST NICHT GENUEGEND ARBEITSSPEICHERPLATZ ZUGEWIESEN. 
ES WERDEN NOCH aaa BYTES BENOETIGT 
Typ 
Systemfehler 
Bedeutung 
aaa: zusätzlicher Speicherbedarf 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


9025 NOT ENOUGH MAIN MEMORY FOR GENERATION OF CROSS-REFERENCE (XREF) LISTING 
9025 FUER DIE ERZEUGUNG DES QUERVERWEIS-PROTOKOLLS (XREF) IST NICHT GENUEGEND 
ARBEITSSPEICHERPLATZ ZUGEWIESEN! ES WERDEN NOCH aaa BYTES BENOETIGT 
Typ | 
Systemfehler 
Bedeutung 
aaa: Anzahl der Bytes 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
© ohne XREF wiederholen, ggf. Systemberater verständigen 


9026 END OF PROCEDURE DIVISION OR ROOT SEGMENT ENCOUNTERED WITHOUT EXIT PROGRAM 
OR STOP RUN HAVING BEEN EXECUTED 
9026 DAS ENDE DER PROCEDURE DIVISION BZW. DES ROOT-SEGMENTS WURDE ERREICHT OHNE 
DASS EXIT PROGRAM ODER STOP RUN AUSGEFUEHRT WURDE 
Typ 
Hinweis 
Verhalten 
Programmlauf wird abgebrochen 
Maßnahme 
An das logische Programmende eine STOP RUN-Anweisung setzen. 


9027 SOURCE LINE TRUNCATED TO 80 CHARACTERS 
9027 DIE QUELLPROGRAMMZEILE WURDE AUF 80 ZEICHEN VERKUERZT 
Typ 
Hinweis 
Verhalten 
Übersetzung läuft weiter 
Maßnahme 


© ggf. Programm korrigieren 


9029 LIBRARY aaa IS PROTECTED BY PASSWORD. PROVIDE PASSWORD AND RESUME (R) 
9029 DIE BIBLIOTHEK aaa IST DURCH PASSWORT GESCHUETZT. BITTE (PASSWORD) UND (R) EINGEBEN 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Bibliotheksname 
Verhalten 
Übersetzung unterbrochen 
Maßnahme I 
Kommandos /PASSWORD und /RESUME eingeben 


9030 LSD GENERATION SUPPRESSED BECAUSE OF SEVERITY 2 ERRORS 
9030 DIE LSD GENERIERUNG WURDE WEGEN SEVERITY 2 FEHLERN UNTERDRUECKT 
Typ 
Hinweis 
Verhalten 
Übersetzung läuft weiter. Es werden jedoch keine LSD-Informationen für die Dialogtesthilfe 
AID erzeugt. 
Maßnahme 


© Programm korrigieren 
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9031 LSD GENERATION FOR A SEGMENTED PROGRAM IS ONLY POSSIBLE WITH MODULE OUTPUT IN A PLAM 


LIBRARY Q 
9031 DIE LSD GENERIERUNG FUER EIN SEGMENTIERTES PROGRAMM IST NUR BEI MODULAUSGABE IN EINE PLAM 
BIBLIOTHEK MOEGLICH 
Typ 
Hinweis 
Verhalten 
Übersetzung läuft weiter. Es werden jedoch keine LSD-Informationen für die Dialogtesthilfe 
AID erzeugt. 
Maßnahme 
Programm neu übersetzen und Bindemodul mit COBRUN MODULE = bibliotheksname in 
eine PLAM-Bibliothek ausgeben. 


9032 LSD GENERATION SUPPRESSED BECAUSE OF INTERNAL I/O ERRORS 
9032 DIE LSD GENERIERUNG WURDE WEGEN INTERNEN I/O FEHLERN UNTERDRUECKT 
Typ 
Systemfehler 
Maßnahme 
Systemberater verständigen 


9033 LSD GENERATION SUPPRESSED BECAUSE OF INTERNAL ERRORS - 
9033 DIE LSD GENERIERUNG WURDE WEGEN INTERNEN FEHLERN UNTERDRUECKT 

Typ 

Systemfehler 

Maßnahme 

Systemberater verständigen 


9036 LIBRARY aaa COULD NOT BE FOUND. REASSIGN AND RESUME (R) 
9036 DIE BIBLIOTHEK aaa KONNTE NICHT GEFUNDEN WERDEN. BITTE NEU ZUWEISEN UND RESUME (R) 
EINGEBEN 

Typ 

Anwenderfehler 

Bedeutung 

aaa: Bibliotheksname 

Verhalten 

Übersetzung unterbrochen 

Maßnahme 

Kommandos /FILE... und /R eingeben 


9038 COB1 RUN-TIME SYSTEM VERSION aaa IS INCOMPATIBLE WITH OBJECT CODE COMPILED BY COB1 
VERSION bbb 
9038 COB1-LAUFZEITSYSTEM VERSION aaa VERTRAEGT SICH NICHT MIT VON COB1 VERSION bbb 9 
UEBERSETZTEM OBJEKT-CODE 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Versionsnummer 
bbb: Versionsnummer i 
Das Laufzeitsystem ist älter als der Ubersetzer, der das Programm erzeugte. 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm neu binden mit verträglichem RUN-TIME-System 


9039 UNRECOVERABLE ERROR DURING DISPLAY UPON TERMINAL 
9039 NICHT BEHEBBARER FEHLER WAEHREND EINER AUSGABE AUF TERMINAL 
Typ 
Systemfehler 
Verhalten 
Programm abgebrochen 
Maßnahme 
Systemberater verständigen 
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9040 
9040 


9044 
9044 


9045 
9045 


9046 
9046 


9047 


9047 


Meldungen 


ABNORMAL TERMINATION. USERS RETURN CODE=aaa. COBOL RETURN CODE=bbb 
ABNORMALE BEENDIGUNG. ANWENDER RETURN CODE=aaa. COBOL RETURN CODE=bbb 
Typ 
Anwenderfehler oder Systemfehler 
Bedeutung 
aaa: >0. Vom Programm wurde ein Anwender-Return-Code gesetzt, was zur Programm- 
beendigung führt. 
bbb: >0. Vom COB1-System wurde ein Fehler festgestellt und zu Diagnosezwecken ein in- 
terner Return-Code gesetzt. Jedem Return-Code ist eine Fehlermeldung zugeordnet, 
aus der seine Bedeutung ersichtlich ist. Diese Fehlermeldung wird immer unmittelbar 
vor der Meldung 9040 ausgegeben. Falls das Programm von einer Jobvariable über- 
wacht wird, wird außerdem der interne Return-Code in deren Rückkehrcode-Anzeige 
übernommen (siehe dazu Tabelle in Kap. 5.2). 
Maßnahme 
Programm bzw. Zuweisung ändern, ggf. Systemberater verständigen. 


UNALTERED GO TO 

GO TO OHNE ALTER 
Typ 
Anwenderfehler 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm ändern 


ERRFIL FILE aaa CREATED AND CLOSED 
FEHLERDATEI aaa ERZEUGT UND GESCHLOSSEN 
Typ 
Hinweis 
Bedeutung 
aaa: Dateiname ERRFIL.COB1.programmname 
Verhalten 
Übersetzung läuft weiter 


aaa bbb ERROR ON ERRFIL FILE 
aaa bbb FEHLER BEIM ZUGRIFF AUF DIE FEHLERDATEI 
Typ 
Anwenderfehler oder Systemfehler 
Bedeutung 
aaa: DVS-Fehler-Code ` 
bbb: einer der folgenden Texte: PASSWORD, LOCK, PARITY, NO SPACE, 
HARDWARE, OPEN, ALLOCATE, CATALOG 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
abhängig vom DVS-Fehler-Code: FILE-Kommando korrigieren; 
bei Systemfehler Systemberater verständigen 


COMPILER ERROR. CLUMP LENGTH O: OVERLAY aaa LAST SOURCE SEQUENCE NUMBER bbb LAST CLUMP 
TYPE ccc LAST CLUMP LENGTH ddd 
COMPILERFEHLER. CLUMP-LAENGE O: OVERLAY aaa LETZTE QUELLPROGRAMMFOLGENUMMER bbb LETZ- 
TER CLUMPTYP ccc LETZTE CLUMPLAENGE ddd 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 
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9049 aaa SWITCHES NOT SUPPORTED BY THIS OPERATING SYSTEM 
9049 aaa SCHALTER WERDEN IN DIESEM BETRIEBS-SYSTEM NICHT UNTERSTUETZT 


Typ 

Anwenderfehler 

Bedeutung 

aaa: Name des Schalters 

Verhalten 

Schalter ignoriert, Programm läuft weiter 
Maßnahme 

ggf. Programm ändern 


9050A AWAITING REPLY 
9050A ANTWORT WIRD ERWARTET 


9051 
9051 


9052 
9052 


9053 
9053 


A-8 


Typ 

Hinweis 

Verhalten 

Programmablauf unterbrochen 

Maßnahme 

Antwort eingeben für ACCEPT FROM CONSOLE 


END OF FILE ON ACCEPT FROM SYSIPT 
BEI ACCEPT FROM SYSIPT WURDE DATEIENDE ERKANNT 
Typ 
Hinweis 
Verhalten 
Programm läuft weiter 
Maßnahme 
Zuweisung von SYSIPT prüfen, ggf. neu zuweisen und Programm nochmal starten 


END OF FILE ON ACCEPT FROM SYSDTA 
BEI ACCEPT FROM SYSDTA WURDE DATEIENDE ERKANNT 
Typ 
Hinweis 
Verhalten 
Programm läuft weiter 
Maßnahme 


Zuweisung von SYSRDR prüfen, ggf. neu zuweisen und Programm nochmal starten 


UNRECOVERABLE ERROR ON ACCEPT FROM SYSDTA 
NICHT BEHEBBARER FEHLER BEI ACCEPT FROM SYSDTA 

Typ 

Systemfehler 

Verhalten 

Programm abgebrochen 

Maßnahme 

Systemberater verständigen 
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9054 ERROR OCCURRED TAKING CHECKPOINT, ERROR IS aaa 
© 9054 BEIM SCHREIBEN EINES WIEDER-ANLAUFPUNKTES TRAT EIN FEHLER AUF, FEHLER IST aaa 


Typ 

Systemfehler 

Bedeutung 

aaa: einer der folgenden Werte in Register 15: 

04 Arbeitsbereich im Klasse-5-Speicher konnte nicht erhalten werden. 
08 Fehler in der Operandenliste des Benutzers. 

0C Fixpunktdatei ist nicht eröffnet. 

10 Keine Sekundärzuweisung oder ungültiges Schreiben. 


14 FCB nicht PAM, oder OPEN nicht INOUT oder OUTIN. 
18 Nicht-behebbaren Fehler vom DVS erhalten. 
1C Fehler in der Katalogverwaltung 


24 Fixpunkt konnte nicht gesetzt werden, weil ein gemeinsamer Speicherbereich 
verwendet wurde (Makro ENAMP ist wirksam). 
28 Fixpunkt konnte nicht gesetzt werden, weil eine Serialisierungskennung vorhanden 


ist (Makro ENASI ist wirksam). 

2C Fixpunkt konnte nicht gesetzt werden, weil eine Ereigniskennung vorhanden ist 
(Makro ENAEI ist wirksam). 

30 Fixpunkt konnte nicht gesetzt werden, weil ein Contingency-Prozeß definiert wurde 
(Makro ENACO ist wirksam). 

Verhalten 

© Programm abgebrochen 
Maßnahme 
Systemberater verständigen 


9055 aaa EXCEPTION ON STATEMENT PC: bbb ccc STATUS=ddd eee 
9055 aaa SONDERZUSTAND BEIM STATEMENT AUF PC: bbb ccc STATUS=ddd eee 
Typ 
Anwenderfehler bei der Fehlerbehandlung durch das Programm 
Bedeutung 
aaa: DML-/DVS-Fehler-Code 
bbb: Befehlszähler 
ccc: DB oder FILE 
ddd: 5-stellige Zahl (bei DB) oder 2-stellige Zahl (bei FILE) 
eee: bei FILE: DVS-Return-Code 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm prüfen, ggf. ändern 


9056 SUB-SCHEMA MODULE TOO SMALL TO PROCESS AN EXTENSIVE DML-STATEMENT 
9056 DER SUB-SCHEMA MODUL IST ZU KLEIN UM EIN UMFANGREICHES DML-STATEMENT ZU VERARBEITEN 


Typ 
bk Anwenderfehler (FIND-7, FETCH-7 ist zu umfangreich) 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm ändern (kürzere DML-Anweisungen) 


9057 NO CONNECTION WITH DATABASE DURING PROGRAM INITIALIZATION 
9057 WAEHREND DER PROGRAMMINITIALISIERUNG KONNTE KEINE VERBINDUNG ZUR DATENBANK HERGE- 
STELLT WERDEN 
Typ 
Anwenderfehler (entweder DBH nicht geladen oder FILE-Kommando inkorrekt) 
Verhalten 
Programm abgebrochen 
Maßnahme 
DBH laden und Programm mit evtl. geändertem FILE-Kommando neu starten 
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9058 
9058 


9061 
9061 


9064 
9064 


9067 
9067 


9068 


UNRECOVERABLE ERROR DURING DISPLAY UPON SYSLST 
NICHT BEHEBBARER FEHLER BEI DISPLAY UPON SYSLST 

Typ 

Systemfehler 

Verhalten 

Programm abgebrochen 

Maßnahme 

Systemberater verständigen 


FORM-OVERFLOW WILL NOT OCCUR BECAUSE OF LACK OF SUPPORT IN BS2000 
UEBERLAUFBEDINGUNG WIRD NICHT AUFTRETEN, DA DIESE FUNKTION NICHT VOM BS2000 
UNTERSTUETZT WIRD 

Typ 

Hinweis 

Verhalten 

Programm läuft weiter 

Maßnahme 

Programm ggf. ändern 


LOGGING WILL NOT BE PERFORMED BECAUSE OF LACK OF SUPPORT IN BS2000 

LOG-FUNKTION WIRD NICHT AUSGEFUEHRT DA IM BS2000 DIE SYSTEMUNTERSTUETZUNG FEHLT 
Typ Ä 
Hinweis 
Verhalten 
Programm läuft weiter 
Maßnahme 
Programm ggf. ändern 


PROGRAM aaa PC bbb STATUS ccc FILE ddd DMS= eee NO USE ERROR PROCEDURE 
PROGRAMM aaa PC bbb STATUS ccc DATEI ddd DMS= eee KEINE USE PROZEDUR 
Typ 


Anwenderfehler oder Systemfehler: schwerwiegender Fehler bei Ein-Ausgabe 

oder Programmierfehler (keine USE-Prozedur, kein INVALID KEY oder keine AT 
END-Klausel) 

Bedeutung 


aaa: Programmname 

bbb: aktueller Stand des Befehlszählers 

ccc: aktueller COBOL FILE STATUS 

ddd: Dateiname 

eee: DVS-Fehlercode 

Verhalten 

Programm abgebrochen 

Maßnahme | 

abhängig vom DVS-Fehler-Code: Programm, FILE-Kommando,... korrigieren oder bei 
Systemfehler Systemberater verständigen 


RPT SEQ+ aaa: GROUP bbb REQUIRES TOO MANY LINES 


9068 REPORT-QUELLPROGRAMMZEILEN+ aaa: GRUPPE bbb ENTHAELT ZU VIELE ZEILEN 


Typ 

Anwenderfehler 
Bedeutung 

aaa: Zeilennummer 
bbb: Name der Gruppe 
Verhalten 

Programm abgebrochen 
Maßnahme 

Programm ändern 
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9069 RPT SEQ+ aaa: GROUP bbb LINE CONFLICTS WIHT HEADING 
© 9069 REPORT-QUELLPROGRAMMZEILEN#+ aaa:GRUPPE bbb EINE ZEILE STEHT IM WIDERSPRUCH ZUR 
SEITENKOPFBEGRENZUNG (HEADING) 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Zeilennummer 
bbb: Name der Gruppe 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm ändern 


9070 RPT SEQ# aaa REPEATED INITIATE 
9070 REPORT-QUELLPROGRAMMZEILEN+ aaa EINE INITIATE ANWEISUNG WURDE DURCHGEFUEHRT DOCH 
NICHT ABGESCHLOSSEN 
Typ | 
Anwenderfehler 
Der REPORT wurde nicht ordnungsgemäß mit einer TERMINATE-Anweisung abgeschlos- 
sen. 
Bedeutung 
aaa: Zeilennummer 
© Verhalten 

Programm abgebrochen 
Maßnahme 
Programm ändern 


9071 RPT SEQ# aaa GENERATE ISSUED TO TERMINATED REPORT 
9071 REPORT-QUELLPROGRAMMZEILEN # aaa FUER EINEN BEREITS ABGESCHLOSSENEN REPORT WURDE EINE 
GENERATE ANWEI SUNG GEGEBEN 

Typ 

Anwenderfehler 

Bedeutung 

aaa: Zeilennummer 

Verhalten 

Programm abgebrochen 

Maßnahme 

Programm ändern 


9072A REPLY T (TERMINATE) OR D (DUMP) 

9072A BITTE T (TERMINATE) ODER D (DUMP) EINGEBEN 
Typ 
Anwender- oder Systemfehler, der durch die vorhergehende Meldung 
beschrieben wurde. 


© 9073 SORTNO. aaa UNSUCCESSFUL 
9073 SORTLAUF MIT NR. aaa NICHT ERFOLGREICH 

Typ 
Anwenderfehler oder Systemfehler 
Bedeutung 
aaa: Nummer des SORT-Laufs 
Verhalten 
Programm läuft weiter 
Maßnahme 
Programm prüfen, ggf. SORT-RETURN abfragen 


9074A VOLUME aaa UNEXPIRED PURGE DATE! REPLY “I” TO IGNORE 
9074A FUER DEN DATENTRAEGER aaa IST DAS FREIGABE-DATUM NOCH NICHT ERREICHT. 
UM ZU IGNORIEREN “I” EINGEBEN 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Archivnummer des Datenträgers 
Verhalten 
Programmlauf unterbrochen 
Maßnahme 
© Falls Schutzmaßnahme ignoriert werden soll, “I” eingeben 


COB1 (BS2000) V2.3A Benutzerhandbuch U254-J2-255-3 A-11 


Meldungen 


9076 RPTSEQ# aaa: TERMINATE ISSUED TO REPORT WHICH IS NOT INITIATED 
9076 REPORT-QUELLPROGRAMMZEILEN# aaa: EINE TERMINATE ANWEISUNG WURDE DURCHGEFUEHRT 


OBWOHL NOCH KEINE INITIATE ANWEISUNG GEGEBEN WURDE 
Typ 
Anwenderfehler 
Es wurde versucht, einen nicht existierenden REPORT durch eine TERMINATE-Anweisung 
zu beenden. 
Bedeutung 
aaa: Zeilennummer 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm ändern 


9077 LINK=aaa NO ENTRY IN CATALOG ISSUE NEW FILE COMMAND 
9077 LINK=aaa KEIN KATALOG EINTRAG. BITTE NEUES FILE-KOMMANDO EINGEBEN 


Typ 

Anwenderfehler 

Bedeutung 

aaa: Linkname 

Verhalten 

Programm unterbrochen 

Maßnahme 

Gültiges FILE-Kommando und RESUME eingeben 


9080A STOP LITERAL - AWAITING REPLY aaa 
9080A STOP LITERAL - ANTWORT ERWARTET aaa 


9081 
9081 


9082 
9082 


9083 
9083 


Typ 

Hinweis 

Bedeutung 

aaa: ausgegebenes Literal 

Verhalten 

Programm unterbrochen; Meldung auf den Bedienungsplatz 
Maßnahme 


Operateur-Eingabe abwarten; Eingabe des Operateurs zur Programmfortsetzung ist 
beliebig 


THE DATABASE-HANDLER HAS NOT YET PROCESSED THE LAST DML-STATEMENT 
DER DATABASE-HANDLER HAT DAS LETZTE DML-STATEMENT NOCH NICHT ABGEARBEITET 
Typ 
Anwenderfehler | 
Der DBH ist durch STXIT unterbrochen und bekommt eine neue DML-Anweisung, ehe die 
unterbrechende abgearbeitet werden konnte. 
Verhalten 
Programm abgebrochen 
Maßnahme 
Programm korrigieren 


JOB-VARIABLES ARE NOT SUPPORTED IN THIS OPERATING SYSTEM 
JOB-VARIABLE WERDEN IN DIESEM BETRIEBSSYSTEM NICHT UNTERSTUETZT 

Typ 

Hinweis 

Verhalten 

Programm läuft weiter 

Maßnahme 

ggf. Programm ändern 


INTERNAL ERROR. THE ADDRESS CALCULATED BY GENERATION OF THE OBJECTLIST DOES NOT 
AGREE WITH THAT IN THE INTERNAL CLUMP 
INTERNER FEHLER. DER ADRESSPEGEL DER BEI DER ERZEUGUNG DER OBJEKTLISTE BERECHNET 
WURDE STIMMT NICHT MIT DEM ADRESSPEGEL IM CLUMP UEBEREIN 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 
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9084 


9085 
9085 


9086 


9086 


9087 
9087 


9088 
9088 


9089 
9089 


Meldungen 


INTERNAL ERROR. THE ADDRESS CALCULATED BY GENERATION OF THE OBJECT MODULE DOES NOT 
AGREE WITH THAT IN THE INTERNAL CLUMP 
INTERNER FEHLER. DER ADRESSPEGEL DER BEI DER ERZEUGUNG DES OBJEKTMODULS BERECHNET 
WURDE STIMMT NICHT MIT DEM ADRESSPEGEL IM CLUMP UEBEREIN 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 


INTERNAL ERROR. THE ADDRESS CALCULATED BY GENERATION OF THE OBJECT MODULE DOES NOT 
AGREE WITH THE START-ADDRESS OF AN LC SECTION IN THE CLUMP 
INTERNER FEHLER. DER ADRESSPEGEL DER BEI DER ERZEUGUNG DES OBJEKTMODULS BERECHNET 
WURDE STIMMT NICHT MIT DEM ADRESSPEGEL IM ORIGIN CLUMP AM BEGINN EINES NEUEN LC 
ABSCHNITTES UEBEREIN 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 


INTERNAL ERROR. THE ADDRESS CALCULATED BY GENERATION OF THE OBJECT LIST DOES NOT 
AGREE WITH THE START-ADDRESS OF AN LC SECTION IN THE CLUMP 
INTERNER FEHLER. DER ADRESSPEGEL DER BEI DER ERZEUGUNG DER OBJEKTLISTE BERECHNET 
WURDE STIMMT NICHT MIT DEM ADRESSPEGEL IM CLUMP AM BEGINN EINES NEUEN LC ABSCHNITTES 
UEBEREIN 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 


INTERNAL ERROR. A CLUMP WITH A LESS THAN ALLOWED LENGTH WAS READ 
INTERNER FEHLER. DIE MINIMALLAENGE EINES CLUMPS WURDE UNTERSCHRITTEN 

Typ 

Compilerfehler 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Systemberater verständigen 


ACCESS TO JOB-VARIABLE aaa FAILED. ERROR CODE=bbb 
FEHLERHAFTER ZUGRIFF ZUR JOB-VARIABLEN aaa FEHLER-CODE=bbb 

Typ 

Hinweis 

Bedeutung 

aaa: Linkname der JV 

bbb: Code der Systemmeldung 

Verhalten 

Programm läuft weiter 

Maßnahme 

Programm ggf. ändern 


*xSTARTC NOT SUPPORTED IN THIS SYSTEM 
*xSTARTC WIRD IN DIESEM SYSTEM NICHT UNTERSTUETZT 
Typ 
Anwenderfehler (unzulässige Quellprogrammeingabe von Magnetband) 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Bandinhalt in Plattendatei übertragen; neues FILE-Kommando; neu übersetzen 
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9090 RECORD DECLARATION STARTING ON LINE aaa TOO LARGE FOR COMPILATION 
9090 DIE DATENSATZERKLAERUNG AB ZEILE aaa IST FUER DIE UEBERSETZUNG ZU GROSS wl 

Typ 

Hinweis 

Bedeutung 

Compiler-Einschränkung 

aaa: Zeilennummer 

Verhalten 

Übersetzung abgebrochen 

Maßnahme 

Datensatzerklärung verkleinern 


9091 ERROR DURING PLAM-ACCESS aaa 
9091 FEHLER BEIM ZUGRIFF AUF PLAM-BIBLIOTHEK aaa 
Typ | 
Systemfehler 
Bedeutung 
aaa: Name der PLAM-Bibliothek 
Verhalten 
Übersetzung abgebrochen 
Maßnahme 
Systemberater verständigen 


9095 SAVLST FILE aaa CREATED AND CLOSED - 
9095 SAVLST DATEI aaa ERZEUGT UND GESCHLOSSEN 

Typ 

Hinweis 

Bedeutung 


aaa: Dateiname SAVLST.COB1.programmname 
Verhalten 
Ubersetzung läuft weiter 


9096 ERROR ON INTERFACE RUN-TIME-SYSTEM - OPERATING-SYSTEM IN ACCEPT OR 
DISPLAY STATEMENT 
9096 FEHLER AN DER SCHNITTSTELLE LAUFZEITSYSTEM - BETRIEBSYSTEM IN ACCEPT 
ODER DISPLAY ANWEISUNG 
Typ 
Systemfehler 
Verhalten 
Programm abgebrochen 
Maßnahme 
Systemberater verständigen 


9097 COMPILATION COMPLETED WITHOUT ERRORS J 
9097 DIE UEBERSETZUNG WURDE OHNE FEHLER BEENDET 

Typ 

Hinweis 


9099 aaa 
9099 aaa 
Typ 
Hinweis 
Bedeutung 
aaa: COBRUN-Anweisung 
Verhalten 
Übersetzung läuft weiter 


A-14 COB1 (BS2000) V2.2B Benutzerhandbuch U254-J1-255-2 


Meldungen 


9101 SUBSCRIPT-/INDEX-RANGE VIOLATION IN aaa STATEMENT IN LINE bbb, VALUE OF SUBSCRIPT/ 
© INDEX IS ccc, TABLE BOUNDARY IS ddd THE PROGRAM eee 
9101 UEBERSCHREITUNG DES SUBSKRIPT- /INDEXBEREICHS BEI ANWEISUNG: aaa IN SOURCEZEILE bbb, 
SUBSKRIPT- BZW. INDEXWERT: ccc TABELLENGRENZE: ddd PROGRAMM WIRD eee 
Typ 
Anwenderfehler 
Bedeutung 
aaa: Anweisung 
bbb: Zeilennummer 
ccc: Indexwert 
ddd: maximaler Wert im OCCURS-Feld 
eee: fortgesetzt/beendet 
Verhalten 
gemäß COBRUN RANGECHECK 
Maßnahme 
ggf. Programm ändern 


9102 RANGE VIOLATION IN aaa STATEMENT IN LINE bbb, VALUE OF “DEPENDING ON” ELEMENT IS ccc, 
TABLE BOUNDARY IS ddd, THE PROGRAM ACTION eee 
9102 UEBERSCHREITUNG DES SUBSKRIPT- /INDEXBEREICHS BEI ANWEISUNG aaa IN SOURCEZEILE bbb, 
WERT DES “DEPENDING ON”-ELEMENTS: ccc, TABELLENGRENZE: ddd, PROGRAMM WIRD eee 
Typ | 
© Anwenderfehler 
Bedeutung 
aaa: Anweisung 
bbb: Zeilennummer 
ccc: Wert im DEPENDING ON-Feld 
ddd: maximaler Wert im OCCURS-Feld 
eee: fortgesetzt/beendet 
Verhalten 
gemäß COBRUN RANGECHECK 
Maßnahme 
ggf. Programm ändern 


9105 HARDWARE INTERRUPT ADDRESS: aaa OVERLAY: bbb SOURCE SEQUENCE NUMBER: ccc INTERRUPT 
WEIGHT CODE: ddd 
9105 HARDWAREUNTERBRECHUNG BEI ADRESSE: aaa OVERLAY: bbb QUELLPROGRAMMFOLGENUMMER: ccc UN- 
TERBRECHUNGSGEWICHT: ddd 
` Typ 
Compilerfehler 
Verhalten 
Übersetzung abgebrochen 


© Maßnahme 
Systemberater verständigen 
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Anhang 2: Aufbau des COB1-Systems 


Das COB1-System besteht aus den Segmenten des Übersetzers und den Ablaufzeitmoduln. 


Auf die Struktur des Übersetzers, die Namen der Segmente und die Funktion der notwen- 
digen Ablaufzeitmoduln wird im folgenden näher eingegangen. Die Schaubilder sollen ein 
besseres Verständnis vom Übersetzungsvorgang und Ablauf der COBOL-Objektprogramme 
vermitteln. 

Aufbau des COB1-Übersetzers 


Der COB1-Übersetzer des Betriebssystems BS2000 besteht aus einer Anzahl von Segmen- 
ten, die in Overlay-Technik gebunden sind. Dabei übernimmt der Rootmodul die Kontrolle 
zum Nachladen übersetzungsabhängiger Überlagerungssegmente. Außerdem übernimmt 
der Rootmodul die Kommunikation einzelner Überlagerungssegmente untereinander und die 
gesamte Ein- und Ausgabe von COB1. 


Die einzelnen Segmente bilden Funktionseinheiten, die durch den Ablauf einer COBOL- 
Übersetzung und durch die Struktur eines COBOL-Programms in die einzelnen DIVISIONS 
vorgegeben werden. 


Man kann den Übersetzungsvorgang in folgende Funktionseinheiten gliedern: 


. Initialisierung 

. Quelldateneingabe 

. Lexikalische Analyse 
. Syntaktische Analyse 
. Semantische Analyse 
Codegenerierung 
Assemblierungslauf 


. Objektmodulgenerierung 


o o AJ o o E o H > 


. Listenerzeugung 


Der Aufbau des Übersetzers und die Anordnung der einzelnen Lademoduln im Arbeits- 
speicher ist im folgenden Schaubild wiedergegeben. 
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Schaubild Aufbau des Übersetzers 


Gerätezuweisungen 
Parameter Initialisierung 


COBRUN Parameter Executive 


Quellprogrammliste 


Quellprogramm 


COPY-Elemente 


Quelldateneingabe 


N 


Korrekturdaten 


Komplettes 
Quellprogramm 
einschließlich 
COPY-Elementen 
und 
Korrekturen 


verschlüsseltes 
Quellprogramm 


lexikal. Analyse 


syntaktische Analyse 


syntaktisch 
korrektes 


Datenstrukturanalyse Quellprogramm 


Referenzbefriedigung 


Symboltabellen 


semantische Analyse 


` 


Textdatei Symboltabellen 


Textdatei 
semantisch 


Codegenerierung korrekt 


Symboltabellen 


i 


Makroanweisungen Assemblierungsphase 


Symboltabellen 


ee, 
T 
Be age 
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Objektmodulausgabe Objektmodul 


Bibliothek 
Listenausgabe 


Objektliste 
Adreßliste 


Aufbau des Übersetzers 


Die Segmente des COB1-Übersetzers 


Name 
ITCLØØ 


ITCLØ1 
ITCLØ2 
ITCL1Ø 
ITCL11 
ITCL12 
ITCL13?) 
ITCL14 
ITCL15') 


ITCL21 
ITCL31 
ITCL41 


ITCL512) 
ITCL612) 
ITCL7R®) 
ITCL71 

ITCL81 

ITCLA1°) 
ITCL91>) 
ITCLBØ?) 


ITCLB1 
ITCLBA?) 


ITCLBB 


ITCLB2 
ITCLB3 
ITCLB4 
ITCLC1 
ITCLDØ?) 
ITCLD1 


ITCLD2 
ITCLEA 
ITCLE1 


ITCLE2 
ITCLE3 


ITCLE4®) 


ITCLF1”)) 
ITCLF2®)"°) 


ITCLF3°) 


ITCLF4°)?) 
ITCLF5°) ` 


ITCLG3 


ITCLGA2)®) 


ITCLG5 


Funktion 


Rootsegment; Koordinierungssegment, Schnittstelle für Arbeitsdateien, System- 
schnittstelle 


Initialisierung, Parameterübernahme 

Eingabe der Quelldaten 

Koordinierungssegment für ITCL11, ITCL12, ITCL13, ITCL14 
lexikalische Analyse für ID + ENVIRONMENT DIVISION 
lexikalische Analyse für DATA DIVISION 

lexikalische Analyse für REPORT SECTION 

lexikalische Analyse für PROCEDURE DIVISION 


Nachlauf für ITCL14 für segmentierte Programme zur Umordnung aufgespaltener 
Segmente. 


syntaktische Analyse ID + ENVIRONMENT DIVISION 
syntaktische Analyse DATA DIVISION 


Datenstrukturanalyse für DATA DIVISION 
(Symboltabellenvervollständigung) 


syntaktische Analyse für REPORT SECTION 

Strukturanalyse für REPORT SECTION 

syntaktische Analyse für DML-Anweisungen der PROCEDURE DIVISION 
syntaktische Analyse für PROCEDURE DIVISION 

Referenzbefriedigung für Daten und Prozedurnamen der PROCEDURE DIVISION 
wie ITCL81 für CORRESPONDING-Datennamen 

Erzeugung der Querverweisinformation 


semantische Analyse der DML-Anweisungen der PROCEDURE DIVISION und erste 
Codegenerierung für DML 


Koordinierungssegment für ITCLBA, ITCLBB 


semantische Analyse der REPORT WRITER Anweisungen und erste Codegenerierung 
für REPORT WRITER 


semantische Analyse der PROCEDURE DIVISION-Anweisungen und Zerlegung 
komplexer Source-Anweisungen in einfache. 


Analyse arithmetischer Ausdrücke, Verarbeitung der COBOL-Testverben 
Operandenanalyse + Generierung der PROCEDURE DIVISION-Literale 
Literal pooling, Tabellenvorbereitung für ITCLC1, ITCLD1 
Codegenerierung für PROCEDURE DIVISION 

Codegenerierung für DML-Anweisungen | 


Codegenerierung für ENVIRONMENT + DATA DIVISION + Generierung der VALUE- 
Literale 


Umwandlung der Codegeneratorausgabe in System 4004/7.000 Maschinensprache 
Generierung der ISD-Sätze 


Verarbeitung und Generierung der Tabellen des generierten Objektmoduls (Adreßta- 
bellen). Maschinencodegenerierung der Standardunterprogramme des Objektmoduls. 


Adreßauswertung und Abbildung auf explizite Speicheradressen des Objektmoduls. 


Generierung des Objektmoduls in TXT, ESD-Kartenformat und Erzeugung der Objekt- 
programmliste. 


Sortieren des Adreßbuches in alphabetischer Reihenfolge. 
Erzeugung des Adreßbuches und der Querverweisliste 


Koordinierungssegment für ITCLF3, ITCLFA4, ITCLF5, ITCLG3, ITCLG4, ITCLG5 und Feh- 
lerlexikon 2. Stufe 


Fehlerlexikon für englische Fehlermeldungen mit Kennung 02, 11, 12, 13, 14, 21, 31, 41 
Fehlerlexikon für englische Fehlermeldungen mit Kennung 51, 61 (REPORT WRITER) 


Fehlerlexikon für englische Fehlermeldungen mit Kennung 79, 71, 81, A1, BØ, B1, BA, 
BB, B2, B3, B4, C1, DØ, D1, D2, E1, E2 


entsprechend ITCLF.. für deutsche 
Fehlermeldungstexte 
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Aufbau des Übersetzers 


Die mit ') bis '°) bezeichneten Übersetzermoduln werden nur in den unten näher beschriebe- 
L nen Fällen verwendet: 


') Nur geladen, falls Segmente aus mehreren SECTIONS zusammengefügt werden müssen 
und dabei eine Umordnung des Quellprogramms notwendig ist. 


2) REPORT SECTION innerhalb der DATA DIVISION. 

"TI SUB-SCHEMA SECTION innerhalb der DATA DIVISION (UDS). 

*) CORRESPONDING-Angabe im Programm bei ADD, SUBTRACT, MOVE. 
°) Angabe von PARAM XREF=YES. 

ê) Angabe von COBRUN MAPSRT oder MAPALL. 

7) Angabe von PARAM MAP=YES. 


°) Für englische Fehlermeldungstexte werden die ITCLF-Lademoduln verwendet. 


°) Wenn Fehlermeldungen mit den angegebenen Kennungen vorliegen. 


'%) Für deutsche Fehlermeldungstexte werden die ITCLG-Lademoduln verwendet. 


Das COB1-Ablaufzeitsystem 


Das COB1-Ablaufzeitsystem liegt als Bibliothek von Moduln vor, die beim Binden eines 

© COBOL-Objektprogramms zum ablauffähigen Programm verwendet wird. Das Hinzufügen 
der von COB1 ausgewählten Moduln wird automatisch vorgenommen. Die vorliegenden Mo- 
duln stellen COB1 bekannte Unterprogramme dar, die im wesentlichen in zwei Gruppen un- 
terteilt werden können: 


1. Unterprogramme für komplexe COBOL-Anweisungen 


Beispiele für komplexe COBOL-Anweisungen sind Druckschrift [1] zu entnehmen (Beispiel 
SEARCH ALL...); aber auch für den Anwender scheinbar einfache Funktionen (wie z.B. 
COMPUTE A=B*’C), für die keine entsprechenden Maschinenbefehle existieren, werden 
durch Bildung von Unterprogrammen und Auslagerung dieser Unterprogramme in vorüber- 
setzte Moduln aufgelöst. 


Die Namen und Funktionen dieser Unterprogramme sind aus der folgenden Tabelle zu ent- 


nehmen. 
Name Funktion 
ITCOCLAB } ; 3 
ITCCCLAD Vergleich ALL ıLiteral« 
ITCØCVBØ i EN 

C ITCCCVBØ } Umwandlung gepackt dezimal nach binär >15 Stellen 
ITCØCVDØ } BR 
ITCCCVDO Umwandlung binär nach gepackt dezimal > 15 Stellen 
ITCØCVFØ Umwandlung von und nach Gleitpunkt 
ITCØDPLØ Division von Dezimalzahlen >15 Stellen 
ITCØINIØ INITIALIZE-Anweisung 
ITCØINSØ INSPECT-Anweisung 
ITCØMDPØ Berechnung variabler Adressen und Längen (rekursiv) 
ITCØMPYØ } SEARE ’ 
ITCCMPYO Multiplikation von Dezimalzahlen > 15 Stellen 
ITCOMVE® } e i i 
ITCCMVEØ MOVE für alphanumerisch-druckaufbereitete Felder 
ITCØRCHØ Überprüfung Tabellengrenzen ` 
ITCOREP® REPORT WRITER-Steuermodul 
ITCBSCHO 1 
ITCCSCHO SEARCH ALL-Anweisung 
ITCØSTGØ STRING-Anweisung 
ITCCTCA1 Klassentest-Tabelle für Test auf ALPHABETIC 
ITCCTCL1 Klassentest-Tabelle für Test auf ALPHABETIC-LOWER 
ITCCTCP1 Klassentest-Tabelle für Test auf ALPHABETIC-UPPER 
ITCCTCS1 Klassentest-Tabelle für Test auf NUMERIC (mit Vorzeichen) 
ITCCTCU1 Klassentest-Tabelle für Test auf NUMERIC 
ITCØTCVØ } í í 
ITCCTCVØ Klassentest bei Datenfeldern > 256 Bytes oder Variablen 
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Name Funktion 

ITCOTRTO ) i 

ITCCTRTO TRANSFORM-Anweisung 

ITCOUSTO UNSTRING-Anweisung 

ITCOVCLO Vergleich für Felder variabler Länge/Adresse oder > 256 Bytes 
ITCOVMAD MOVE ALL Literal 

ITCOVMP® 2 l i 

TCA Mpy Jl Auffüllen für Felder > 256 Bytes bei MOVE 

ITCØVMVØ MOVE für Felder variabler Länge/Adresse oder > 256 Bytes 
ITCOXMN® EXAMINE-Anweisung 

ITCØXPFØ : i i 

ITCCXPFO } Potenzierung mit Gleitpunktzahlen 

ITCØXPIØ 


ITCCXPIØ } Potenzierung mit Ganzzahlen 


2. Unterprogramme zum Anschluß des generierten Bindemoduls an Betriebssystemfunk- 
tionen 


Diese Unterprogramme dienen hauptsächlich dazu, die Codegenerierung des Übersetzers 
möglichst betriebssystemunabhängig halten zu können. Die dabei möglicherweise auftre- 
tenden Effizienzverluste werden weitgehend durch die größere Betriebssystemunabhängig- 
keit wettgemacht. Bei Änderung der Schnittstellen genügt im allgemeinen das erneute Bin- 
den der vorhandenen Bindemoduln mit der neuen Ablaufzeit-Bibliothek (falls dies überhaupt 
notwendig sein sollte). | 
Wesentliche Funktionen unter diesem Titel sind: 

. Anschluß der COBOL-Programme an das Ein-Ausgabesystem 

. Anschluß der COBOL-Programme an SORT 

. Anschluß der COBOL-Programme an UDS 

. Anschluß der COBOL-Programme an Ablaufteil-Funktionen 


Im folgenden sind die Namen und Funktionen der zu diesen Zwecken vorhandenen Ablauf- 
zeit-Moduln näher beschrieben. 


Name Funktion 

Mia } ACCEPT-Anweisung 

ITCØBEGØ Programmsystem-lnitialisierungsroutine 

ITCMCKP® RERUN-Klausel mit Angabe »Ganzzahl«ı RECORDS 
ITCMCKP1 RERUN-Klausel für SORT-Dateien und END OF REEL 
ITCØDBLØ Verbindungsmoduln zum Datenbanksystem UDS 
ITCMDCC1 physikalische Lese/Schreibroutine für direkte Dateien 
ITCMDCLØ CLOSE-Anweisung für direkte Dateien 

ITCMDIN1 PAM-FCB-Generierung für direkte Dateien 


ITCMDOPØ OPEN-Anweisung für direkte Dateien 
ITCMDRDØ READ-Anweisung für direkte Dateien 


aaa ep | DISPLAY-Anweisung 

ITCMDWRØ WRITE/REWRITE-Anweisung für direkte Dateien 
ITCØENDØ Programmbeendigungsroutine (normal und abnormal) 
ITCXERR1 Fehleranalyseroutine für Ein-Ausgabe 

ITCØERTØ ENTRY/RETURN-Anweisung 

ITCCHSWØ Setzen und Prüfen von Prozeß-/Benutzer-Schaltern 
ITCMICLØ CLOSE-Anweisung für indizierte Dateien 

ITCMIIN1 ISAM-FCB-Generierung 

ITCXINTØ FCB-Initialisierung 

ITCMIOP® OPEN-Anweisung für indizierte Dateien 

ITCMIRD® READ/START-Anweisung für indizierte Dateien 
ITCMIWRO® WRITE/REWRITE-Anweisung für indizierte Dateien 
ITCCMSG3 


ITCDMSG3 | Ausgabe von Fehlermeldungen 
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Name 


ITCOPCAD 
ITCCPCAB 
ITCØPCSØ 
ITCCPCSØ 
ITCØPOVH 
ITCMPUSØ 
ITCXRCC1 
ITCXRCLØ 
ITCXRIN1 
ITCXROPØ 
ITCXRRDØ 
ITCXRWR® 
ITCMSCLO 
ITCØSEGØ 
ITCCSEGB 
ITCOSFO® 
ITCCSFOB 
ITCMSINI 
ITCMSLNI 
ITCØSMGØ 
ITCMSOPØ 
ITCØSPCØ 
ITCMSRDØ 
ITCCST11 
ITCCST21 
ITCØSTPØ 
ITCCSTPØ 
ITCMSWR® 
ITCMUL Hu 
ITCOUPC2 
ITCOUPS3 


ITCXXITI 


Aufbau des Übersetzers 


Funktion 


Figurative Konstanten > 256 Bytes bei COLLATING SEQUENCE 
Vergleiche für PROGRAM COLLATING SEQUENCE 


programmsystemspezifische Routinen und Konstanten 

Versorgung des COBOL-Dateisteuerblocks mit Prozedurvereinbarungsadressen 
physikalische Lese/Schreibroutine für relative Dateien 

CLOSE-Anweisung für relative Dateien 

PAM-FCB-Generierung für relative Dateien 

OPEN-Anweisung für relative Dateien 

READ/START-Anweisung für relative Dateien 

WRITE/REWRITE-Anweisung für relative Dateien 

CLOSE-Anweisung für sequentielle Dateien 


Ansprung segmentierter COBOL-Programme 
APPLY-FORM-OVERFLOW-Routine für Druckerdateien (Leerfunktion im BS2000) 


SAM-FCB-Generierung 

LINAGE-Klausel bei WRITE für sequentielle Dateien 
SORT/MERGE-Anweisung 

OPEN-Anweisung für sequentielle Dateien 
Druckersteuerzeichen-Auswertung 


 READ-Anweisung für sequentielle Dateien 


CODE SET-Tabelle für ASCII 
CODE SET-Tabelle für ISO-7 


STOP ıLiteral--Anweisung 


WRITE-Anweisung für sequentielle Dateien 
Benutzerkennsatzbehandlung 

Steuermodul für Prozedurvereinbarungen 
Sicherstellungsbereich für Prozedurvereinbarungen 
FILE STATUS und Fehlerbehandlungsroutine 
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Anhang 3: Beschreibung des Objektmodulformats 


Struktur des Objektmoduls 
Übersicht: Struktur des Objektmoduls 


Kontrollabschnitt (Ø) Initialisierungscoding 


Kontrollabschnitt (1) |e Standardunterprogramm für GO TO 
e Adreßkonstante für Tabellen 

e Indexnamenspeicher 

e Adreßkonstante für Datenbereiche 
e Adreßkonstante für Ablaufzeitroutinen 
e Adreßkonstante für FCB’s/DTF’s 


Kontrollabschnitt (2) |e Adreßkonstante für angesprochene Paragraph- und Kapitelnamen 
e ALTER-Tabelle 
e Registersicherstellungsbereiche für PERFORM-Anweisungen 


è V-Adreßkonstante für Unterprogramme und Programmsegmente 


Kontrollabschnitt (3) |e Steuerblöcke für Datenbanksprachelemente 
e Steuerblöcke für Ein- Ausgabesprachelemente 


e Arbeitsbereiche für spezielle COBOL-Anweisungen + DML und LO 


Kontrollabschnitt (4) |e Speicherbereiche für Ein-Ausgabebereiche, die über temporäre oder 


permanente Register angesprochen werden (lOREG) 


Kontrollabschnitt (5) |e Speicherbereiche für DATA DIVISION Datenerklärung und fest 


adressierte Ein-Ausgabebereiche 
e Arbeitsbereiche für Verben 
e Initialwerte von Daten (VALUE-Klausel) 


Kontrollabschnitt (6) |e Programmspezifische Konstanten und COBOL-Register (TALLY, .. .) 


e intern verwendete Parameterbereiche zur Verfügung von Ablauf- 
zeitroutinen 


e Adreßzeiger für Kontrollabschnitt (3) 


e Speicherbereiche für REPORT WRITER (LINE-COUNTER, 
SUM-COUNTER, ...) 


e Speicherbereiche 


KonstantenderPROCEDURE DIVISION (Literale) 


Kontrollabschnitt (7) |e Code für PROCEDURE DIVISION-Anweisungen 


e Code für übersetzerintern generierte Anweisungen (SORT, 
REPORT WRITER) 


Kontrollabschnitt (8) |e Standardunterprogramme für GO TO, 
PERFORM, ALTER, EXIT für nichtsegmentierte 


Programme 


e Anschlußcode für segmentierte Programme elei ach 
zur GO TO, PERFORM, Behandlung EES Ne 

e Programmsystemspezifische Konstante und standardmäßiger 
Arbeitsbereiche Zusatzmodul 

e Unterprogramme für komplexe Anweisungen programm- 


der PROCEDURE DIVISION 


e Unterprogramme zur Bedienung der 
. Betriebssystemschnittstelle 

e Speicherbereiche für Datenbank- 
kommunikationsbereich (UWA) 


abhängig nur, 
falls notwendig 
zur Bedienung 
bestimmter 
Sprachelemente 


zur 
Bindezeit 
automatisch 
aus 
Bibliothek 
geholt 
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Der Inhalt des Objektmoduls entspricht den allgemeinen Systemkonventionen. Er enthält 
© ESD-, TXT-, RLD-Datensätze und im BS2000 gegebenenfalls zusätzlich ISD-Sätze. Eine ge- 
naue Beschreibung dieser einzelnen Bestandteile ist der Beschreibung [3] zu entnehmen. 


Die Anzahl der von COB1 erzeugten Objektmoduln ist abhängig vom Aufbau des übersetz- 
ten Quellprogramms. Enthält das Quellprogramm keine SECTION-Nummern, oder keine 
DML-Anweisungen (siehe [9]), erzeugt COB1 nur einen Objektmodul. 


Segmentierung 


Werden SECTION-Nummern verwendet, die über der in der Klausel „>SEGMENT-LIMIT« an- 
gegebenen Grenze oder >5ß liegen, werden von COB1 für aus diesen SECTIONS gebildeten 
Segmenten getrennte Moduln erzeugt. 


Die Modulnamen werden aus dem PROGRAMM-ID-Eintrag gebildet. Dies ermöglicht ent- 
weder ein automatisches oder ein vom Benutzer gesteuertes Zusammenbinden dieser ge- 
trennt vorliegenden Moduln zu einem ablauffähigen Programm. Im BS2000 kann diese Funk- 
tion zur Bildung von »shareable code<-Segmenten unter Hinzunahme des DLL ausgenützt 
werden [3] (vgl. Abschnitt 6.2). 


“ DML-Anweisungen 
Wurde im COBOL-Quellprogramm eine SUB-SCHEMA SECTION angegeben, führt dies 
ebenfalls zur Bildung eines separaten Objektmoduls. Dieser Objektmodul dient als Platzhal- 


ter für die Aufnahme des Verbindungsbereiches zum Datenbanksystem (USER WORK 
AREA). 


Namenskonventionen für den Objektmodul 


In einem COBOL-Quellprogramm muß der Benutzer im PROGRAM-ID-Paragraphen das zu 
übersetzende Programm mit einem Namen versehen. Dieser Name wird vom Übersetzer als 
Grundlage zur Identifizierung des erzeugten Objektprogramms verwendet; d.h. ein Objekt- 
modul muß in irgendeiner Form den im Quellprogramm angegebenen Namen enthalten. Der 
vom Benutzer im PROGRAM-ID-Paragraphen angegebene Name darf zu keinen Zweideutig- 
keiten mit anderen erzeugten Moduln oder im System vorhandenen Moduln (Ablaufzeitmo- 
duln, die immer mit ITC beginnen) führen. 


© Da die erzeugten Objektmoduln (Bindemoduln) als Eingabe für den Binder dienen, dessen 
Hauptaufgabe darin besteht, beim Übersetzen noch nicht aufgelöste Adressen (d.h. externe 
Bezugnahmen) zu befriedigen, wozu der Name eines Objektmoduls dienen kann, muß der 
Programmname Bestandteil des ESD (External Symbol Dictionary) werden. Die im ESD an- 
gegebene Adresse ist dabei bei einem COBOL-Programm die Adresse des ersten zu durch- 
laufenden Befehls des Prozedurteils, d.h. die Anfangsadresse für den Ablauf des Pro- 
gramms. In Standard-COBOL stellt dieser Name die einzige Möglichkeit des Ansprungs ei- 
nes COBOL-Programms dar. Dabei ist es gleichgültig, ob das Programm direkt vom Be- 
triebssystem oder von einem Hauptprogramm aus angesteuert werden soll. Aus Kompatibi- 
litätsgründen wird die Funktion der ENTRY-Anweisung weiterhin unterstützt. Sie entspricht 
jedoch nicht mehr der heutigen Erkenntnis der strukturierten Programmierung und sollte 
möglichst durch Verwendung von PROCEDURE DIVISION USING... ersetzt werden. 


Es sind im folgenden zweierlei Arten von Namen zu unterscheiden: 


1. Namen zum Aufruf eines Moduls. Diese Namen stellen externe Namen dar, die für Pro- 
grammverknüpfungen beim Bindevorgang verwendet werden können. 


2. Namen zur Benennung des Bibliothekseintrags, unter dem ein Modul in der Bibliothek ge- 
speichert ist. 


Wenn im folgenden von Namen gesprochen wird, sind damit immer die unter 1. angegebe- 
© nen Namen gemeint. 
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Programme, die nur einen Modul erzeugen 


Dazu gehören alle COBOL-Programme, die keine DML-Anweisungen enthalten, oder bei 
denen von der COBOL-Segmentierungsfunktion nicht Gebrauch gemacht wurde. Der im 
PROGRAM-ID-Paragraphen angegebene Name wird zur Kennzeichnung des Anfangspunk- 
tes des Programmablaufes verwendet. 


Der Name einer Bibliothek ist entweder implizit festgelegt (bei der Bibliotheksdatei), oder er 
wird explizit durch einen LMR-Lauf bestimmt. Der Name eines Bindemoduls in der Datei 
E" ist implizit durch den Namen des ersten ESD-Satzes gegeben. 


Programme mit DML-Anweisungen 


Für Programme, die eine SUB-SCHEMA SECTION enthalten, wird ein zusätzlicher Modul ge- 
neriert, dessen Name aus dem SUB-SCHEMA-Namen gebildet wird. Mit dieser Maßnahme 
ist es möglich, verschiedene, getrennt kompilierte COBOL-Programme, die sich auf das glei- 
che SUB-SCHEMA beziehen, ohne Probleme miteinander zu einem Programmsystem zu 
verknüpfen, da nach der Kompilierung der Modul mit dem Namen des SUB-SCHEMA nur 
einmal zur Verfügung steht. 


Externe Referenzen im Objektmodul 


In diesem Abschnitt werden die im Abschnitt Objektprogrammliste erwähnten Teile aus der 
Sicht des Objektmoduls näher erläutert. Insbesondere wird der Unterschied zwischen exter- 
nen Referenzen für Ablaufzeitroutinen, benutzerdefinierte Unterprogramme und Unterpro- 
gramm-Einsprungpunkte erklärt. 


Ablaufzeitroutinen 


Im Anhang 3 dieses Benutzerhandbuches sind die Namen und Funktionen der Ablaufzeitrou- 
tinen aufgeführt,die COB1 zur Ausführung komplexer Anweisungen auswählen kann. Im ge- 
nerierten Objektmodul erzeugt COB1 für jede ausgewählte Ablaufzeitroutine eine externe 
Referenz. Die Namen für diese externen Referenzen werden in den ESD-Sätzen des Objekt- 
moduls abgesetzt. Für jede ausgewählte Routine erzeugt COB1 außerdem eine Adreßkon- 
stante, die nach dem Binden des Programmes die Anfangsadresse der eingefügten Routi- 
nen enthält. 


Anhand des in den ESD-Sätzen auftretenden Namens wird vom Binder ein Modul der 
COBOL-Ablaufzeit-Programmbibliothek gleichen Namens automatisch zum Objektmodul 
dazugebunden. Die Anfangsadresse dieses Moduls wird vom Binder in der entsprechenden 
Adreßkonstanten eingetragen. Dabei geschieht die Verknüpfung über die intern vergebenen 
ESID-Nummern. Zur Ablaufzeit verwendet das COBOL-Objektprogramm dann diese Adres- 
sen, um in das erforderliche Unterprogramm zu verzweigen. 


Unterprogrammaufruf 


Für jede CALL-Anweisung im COBOL-Quellprogramm wird von COB1 eine V-Konstante er- 
zeugt. Diese ist über eine ESID-Nummer, die in einem ESD-Satz des Objektmoduls abge- 
setzt wurde, mit dem Namen des zu rufenden Unterprogrammes verknüpft. Bei Ausführung 
eines Unterprogrammaufrufs wird der Inhalt dieser V-Konstanten (der vom Binder eingetra- 
gen wurde) geladen und das entsprechende Unterprogramm angesprungen. Dies geschieht 
über einen vom Binder eingefügten Steuermodul. (Die Lage und der Name dieser V-Kon- 
stanten gehen ebenfalls aus der Beschreibung der Objektprogrammliste hervor). Näheres 
zur Steuerung dieser Unterprogrammaufrufe ist dem Abschnitt 6.3 zu entnehmen. 
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Unterprogramm-Einsprungpunkte 


Externe Referenzen werden auch für Unterprogramm-Einsprungpunkte erzeugt. Diese kön- 
nen entweder direkt durch ENTRY-Anweisungen definiert sein oder implizit durch die 
USING-Angabe in der Anweisung PROCEDURE DIVISION vorhanden sein. Generell werden 
für Einsprungpunkte im COBOL-Objektprogramm Einträge in ESD-Sätzen mit dem Typ LD 
oder SD vorgenommen. Diese Namen sind der Beschreibung der Objektprogrammliste zu 
entnehmen. Beim Binden eines COBOL-Objektprogrammes werden diese Namen verknüpft 
mit entsprechenden Namen externer Referenzen in anderen dazugebundenen Moduln. 
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Anhang 4: Datenbankbedienung (UDS) 


Eine Beschreibung des universellen Datenbanksystems UDS findet sich in den Manualen 
Entwerfen und Definieren [9], Aufbauen und Umstrukturieren [10], 
Anwendungen Programmieren [20], sowie im UDS Taschenbuch [19]. 


UDS-Datenbanken werden von Anwenderprogrammen bedient über 
— COBOL-DML-Sprachelemente (DML ist integraler Bestandteil von COBOL) 
— CALL DML (Datenbankbehandlung über Unterprogrammaufruf). 


Der folgende Text beschränkt sich auf COBOL-DML. Ferner wird davon ausgegangen, daß 
Schema und Subschema bereits generiert sind. Hier werden einzelne Schritte zur Erzeu- 
gung eines UDS-Anwenderprogramms kurz dargestellt. 


Der Database Handler (DBH) als Kernkomponente des UDS-Datenbanksystems ist zustän- 
dig für die Kommunikation zwischen dem Anwenderprogramm und der Datenbank (über das 
Subschema). Man unterscheidet: 


— Linked-in DBH: Er wird in das Anwenderprogramm eingebunden, eignet sich also für den 
Fall, daß nur ein Anwenderprogramm mit der Datenbank arbeiten soll. 


— independent DBH: Er wird nicht mit in das Anwenderprogramm eingebunden, d.h. er 
kann mehr als ein Anwenderprogramm steuern (eigener Prozeß). 


Aufbau eines COBOL-DML-Programms 


DATA DIVISION. 


SUB-SCHEMA SECTION. 
DB subschema-name WITH IN schema-name 


PROCEDURE DIVISION. 
Folge von COBOL-DML-Anweisungen 


Die Formate der COBOL-DML-Anweisungen sind in [20] beschrieben. 
schema-name/subschema-name: Werden bei der Schema- bzw. Subschemagenerierung 
festgelegt. 


Übersetzen eines COBOL-DML-Programms 


Der COB1-Übersetzer erzeugt aus einem COBOL-DML-Programm einen Programm-Modul 
und einen Subschema-Modul. 


Mittels eines FILE-Kommandos (mit LINK = DATABASE) wird dem Übersetzer der Name der 
Datenbank (dbname) mitgeteilt. Dieser Name wurde schon bei der Datenbank-Generierung 
verwendet. Mit seiner Hilfe erkennt der Übersetzer die Datei dbname.COSSD, aus der er 
das Subschema kopiert. Sie wurde bei der Subschema-Generierung von UDS erzeugt. 


Beispiel für eine Kommandofolge: 


/ERASE * 

/FILE doname,LINK= DATABASE 
/PARAM ... 

/SYSFILE SYSDTA = quellprogrammdatei 
/EXEC $COB1 


/SYSFILE SYSDTA=(SYSCMD) 
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Datenbanken 


Sicherstellen der von COB1 erzeugten Moduln 


Wie und in welchen Bibliotheken die vom Compiler erzeugten Bindemoduln gesichert wer- 
den können, ist im Kapitel „Sicherstellung von Bindemoduln“ beschrieben. 


Binden eines COBOL-DML-Programms 


Das Binden von COBOL-Programmen ist im Kapitel „Erzeugung ablauffähiger Programme“ 
ausführlich beschrieben. 


Bei COBOL-DML-Programmen ist jedoch zusätzlich zu beachten, daß je nach Wahl der 
DBH-Variante (=Database Handler) ein entsprechender UDS-Connection-Modul mit einzu- 
binden ist (siehe hierzu [20]). 


Beispiel eines Binderlaufs: 


/EXEC $TSOSLNK 

*PROG_programmname[, FILENAM=dateiname ] 

X INCLUDE_cobol-dml-programm, modulbibliothek 

X INCLUDE_uds-connection-modul, udsmodulbibliothek 
[ XRESOLVE_, cobol-runtime-bibliothek] 


Ablauf eines UDS-Anwenderprogramms 


Der Ablauf eines UDS-Anwenderprogramms setzt bei Einsatz des independent DBH eine 
UDS-Session voraus. Die Verbindung zu dieser Session bzw. zur Datenbank stellt das FILE- 
Kommando her. 


Ablauf mit linked-in DBH: 


/FILE dbname,LINK= DATABASE 
/EXEC dateiname 
[DBH-Parameter] 

PPEND 
[Anwenderprogramm-Parameter] 


Ablauf mit independent DBH: 
/EXEC dateiname 
[Anwenderprogramm-Parameter] 
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Dateien 


D) Die Datei QUELL.FLEXI wird eröffnet. Anschließend zeigt EDOR den Dateianfang am 


Bildschirm. 

Anmerkung: Falls QUELL.FLEXI eine SAM-Datei wäre, müßte man statt dessen eine 
Hilfsdatei eröffnen (z.B. O,HILF,N) und den Inhalt von QUELL.FLEXI hineinkopieren (z.B. 
K200,QUELL.FLEX!). 


®© Die Änderungen werden am Bildschirm mit Hilfe der Tastatur durchgeführt. Der zu 


löschende Satz wird durch einen Satzbegrenzer, den Gegenschrägstrich (\ ), ersetzt. 
Anschließend müssen die veränderten Datensätze eingegeben werden. 


Mit der Anweisung „— —“ könnte man kontrollieren, ob die Änderungen wie gewünscht 


in die Datei übernommen wurden. 
Die Anweisung H" schließt die Datei, das zweite H" beendet EDOR. 
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COBOL-Bibliotheken (COBLUR) 


Übersicht über die Bereitstellung in COBOL-Bibliotheken 


Eine COBOL-Bibliothek ist eine ISAM-Datei, in der COBOL-Quellprogramme und -Quellpro- 
grammteile in komprimierter Form abgespeichert werden können. Elemente einer solchen 
Bibliothek werden vom Übersetzer eingelesen, wenn er eine BASIS-Anweisung erkennt oder 
eine COPY-Anweisung [1] (siehe Abschnitt 2.2) in dem zu übersetzenden Programm vorfin- 
det. Der Inhalt einer COBOL-Bibliothek bleibt so lange verfügbar, bis der Benutzer ihn än- 
dert oder löscht. Dazu benötigt er — ebenso wie zu jedem anderen Zugriff zu der Bibliothek 
— das Dienstprogramm COBLUR [3], das Aufbau und Wartung einer COBOL-Bibliothek er- 
möglicht. 


Im Vergleich zum Einsatz von Quellprogramm-Dateien erweist sich das Speichern in einer 
COBOL-Bibliothek als platzsparend. Andernfalls benötigt jedes noch so kleine COBOL- 
Quellprogramm eine eigene Datei, von der jede mindestens 3 PAM-Seiten auf dem Daten- 
träger belegt. Der Einsatz von COBOL-Bibliotheken bietet sich vor allem bei der Entwicklung 
von Programmsystemen an, bei denen die einzelnen Programme teilweise gleiche Unterrou- 
tinen oder Dateibeschreibungen benutzen. 


Struktur von COBOL-Bibliotheken 


Eine COBOL-Bibliothek ist eine ISAM-Datei mit Sätzen variabler Länge, die einen 14 Zeichen 
langen ISAM-Schlüssel am Satzanfang besitzen. 


Die Bibliothek unterteilt sich in 4 Bibliotheksabschnitte: 


Teil 1 enthält Einträge für den Erkennungs- und Maschinenteil (IDENTIFICATION und 
ENVIRONMENT DIVISION) von Quellprogrammen, 


Tel / enthält Einträge für den Datenteil (DATA DIVISION) von Quellprogrammen, 


Teil 3 enthält Einträge für den Prozedurteil (PROCEDURE DIVISION) von Quellprogram- 
men, 


Teil4 enthält vollständige Quellprogramme oder Programmteile. 
(Bei COPY- oder BASIS-Anweisungen greift der Übersetzer immer auch auf diesen 
Teil zu.) 


ISAM-Schlüssel 


Name des Bibliothekeintrags 2 Quellprogramm-Folgenummer 


Kennzeichen für den Bibliotheksabschnitt, kombiniert mit dem 
ersten Zeichen im Namen des Bibliothekeintrags 


Bild 1-2 
Aufbau des ISAM-Schlüssels für die Datensätze einer COBOL-Bibliothek 
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Eingabe in COBOL-Bibliotheken 


Mit Hilfe des Dienstprogramms COBLUR [3] gibt der Benutzer Quellprogramme bzw. Quell- 
programmteile in eine COBOL-Bibliothek ein. Die Eingabe kann erfolgen: 


— über die Systemdatei SYSDTA, d.h. wahlweise von einer Datenstation, Datei oder dem 
Lochkartenleser, im Stapelbetrieb auch aus der SPOOLIN-Datei. 

— aus einer anderen COBOL-Bibliothek. 

Das Programm COBLUR wird dazu mit dem EXECUTE-Kommando aufgerufen und erwartet 

dann COBLUR-Steueranweisungen von der Systemdatei SYSDTA. 


Für die Eingabe von Quellprogrammen oder Quellprogrammteilen sind folgende COBLUR- 
Anweisungen von Bedeutung (die dafür unbedingt erforderlichen sind durch Unterstrei- 
chung hervorgehoben): 


COBLIB vereinbart den Namen der COBOL-Bibliothek, die COBLUR neu aufbauen bzw. 
bearbeiten soll. 


SOURCE gibt an, woher die einzufügenden Einträge kommen sollen. Standardmäßig ist 
SYSDTA vorgesehen, d.h. in diesem Fall kann die Anweisung SOURCE wegge- 
lassen werden. 


COPYLIB wird beim Kopieren aus einer anderen COBOL-Bibliothek benötigt. 


CATALS legt fest, wo die Einträge in der COBOL-Bibliothek zu machen sind und gibt 
den Namen des neuen Bibliothekseintrags an. 


DSPLYE ermöglicht, das Inhaltsverzeichnis der COBOL-Bibliothek oder den Inhalt von 
Bibliotheksabschnitten zu protokollieren. 


END beendet den COBLUR-Lauf 


Alle COBLUR-Anweisungen beginnen mit einem Leerzeichen (X’40'). 
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Bild 1-3 
Eingabemöglichkeiten für eine COBOL-Bibliothek 


Im folgenden werden zwei typische Anwendungsfälle im Stapel- und im Dialogbetrieb an- 
hand je eines Beispiels vorgestellt. 


Beispiel 7: Eingabe in eine COBOL-Bibliothek im Stapelbetrieb 


© Das Dienstprogramm COBLUR wird aufgerufen. 
® Als Name der COBOL-Bibliothek, die COBLUR bearbeiten soll, wird BIB. 1 vereinbart. 


® In Teil 4 der COBOL-Bibliothek wird das nachfolgende Quellprogramm unter dem Namen 


LK eingetragen. Jede Quellprogrammzeile (je 80 Byte) wird zu einem Satz in der Biblio- 
theksdatei. 


© Das Inhaltsverzeichnis der Bibliothek (CD) und der Eintrag LK aus Teil 4 werden in die 
Systemdatei SYSLST (Schnelldrucker) ausgegeben. 


© Der Lauf von COBLUR wird beendet. 
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© Das Dienstprogramm COBLUR wird aufgerufen. 
© Der Name BIB.1 der zu bearbeitenden COBOL-Bibliothek wird angegeben. 


© Unter dem Namen ABCOB soll in den Teil 3 der COBOL-Bibliothek ein neuer Eintrag er- 


stellt werden. SEQNCE bewirkt ein Prüfen des Schlüssels, der wegen SAVE übernom- 
men wird. 


GO Vier Quellprogramm-Sätze werden in die COBOL-Bibliothek eingegeben. 


® Der Eintrag ABCOB in Teil 3 wird auf SYSOUT (Angabe SO), d.h. auf der Datenstation 
protokolliert. 


© In Teil 4 der aktuellen COBOL-Bibliothek soll unter dem Namen BEISP1 ein Quellpro- 


gramm übernommen werden. Dieses Programm ist bereits in der Datei QUELL.EIN- 
XEINS.FEHLER vorhanden. 


© Mit der EXCAPE-Funktion der Datenstation (Datenübertragungstaste) wird COBLUR un- 
terbrochen und in den Systemmodus übergegangen. So kann im folgenden SYSFILE- 
Kommando SYSDTA auf die neue Eingabedatei für COBLUR umgelegt werden. 


Das SYSFILE-Kommando weist die Systemdatei SYSDTA der Datei QUELL.EIN- 
XEINS.FEHLER zu, das RESUME-Kommando (Abkürzung: R) bewirkt eine Rückkehr in 
den Programm-Modus. COBLUR läuft weiter, d.h. es liest das Quellprogramm. Sobald 
das Ende der Datei QUELL.EINXEINS.FEHLER erkannt wird, sendet COBLUR die fol- 
gende Meldung und unterbricht seinen Lauf. 


© Die Systemdatei SYSDTA wird auf die Datenstation gelegt: (SYSCMD) oder aber 
(PRIMARY). 


o Eintrag BEISP1 aus Teil 4 der COBOL-Bibliothek soll auf SYSLST (Schnelldrucker) proto- 
kolliert werden. 


®© Das Programm COBLUR wird beendet. 


Änderungen in COBOL-Bibliotheken 


Will man Daten in einer COBOL-Bibliothek abändern, löschen oder einfügen, so bietet 
COBLUR dafür Steueranweisungen an. Die damit durchgeführten Änderungen in der CO- 
BOL-Bibliothek sind nicht temporär, d.h. man muß sie von denen unterscheiden, die nur für 
einen einzigen Übersetzungslauf gelten (siehe Abschnitt 2.2.5). 


Zusätzlich zu den COBLUR-Anweisungen für die Eingabe, die bereits im Abschnitt 1.3.3 
aufgeführt sind, können für Änderungen folgende Angaben erforderlich sein: 


DELETS löscht ein Element aus einem Bibliotheksabschnitt. 


Mehrere Anweisungen bilden eine in sich abgeschlossene Korrektureinheit, die mit STARTC 
beginnt und mit ENDC endet. Dazwischen stehen Daten, DELETE- oder INSERT-Anweisun- 
gen: 


STARTC vereinbart den zu ändernden Eintrag. 


DELETE löscht Quellprogramm-Anweisungen innerhalb des mit STARTC vereinbarten 
Elements und ist nur nach STARTC erlaubt. 

INSERT fügt Quellprogramm-Anweisungen in das mit STARTC vereinbarte Element ein 
und ist nur nach STARTC erlaubt. 

ENDC schließt die Korrektureinheit ab. 
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© Die zu bearbeitende COBOL-Bibliothek heißt BIB. 1. 


© In Teil 4 der aktuellen Bibliothek soll der Eintrag LK auf SYSOUT (Datenstation) gezeigt 3 
werden. N 


® Korrekturen sollen im Eintrag LK von Teil 4 vorgenommen werden. Damit wird der Kor- 
rekturmodus eingeschaltet, der mit der Anweisung ENDC beendet wird. 


®© Satz 60 wird gelöscht. 
© Ab Satz 60 soll eingefügt werden, und zwar der folgende Quellprogrammsatz. 
ENDC beendet den Korrekturmodus. 


© Zur Kontrolle wird der Eintrag LK erneut auf die Datenstation ausgegeben. 


Mit COBLUR können nur Sätze eingegeben, keine einzelnen Zeichen oder Satzteile verän- 
dert werden. 
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